(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    195892,       5143]
NotebookOptionsPosition[    178525,       4623]
NotebookOutlinePosition[    178891,       4639]
CellTagsIndexPosition[    178848,       4636]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<@\>\"", "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalA]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.51072108109375*^9, 3.511219556390625*^9, 
  3.511219613390625*^9, 3.5112413438125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalB]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.51072108109375*^9, 3.511219556390625*^9, 
  3.511219613390625*^9, 3.5112413438125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalC]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.51072108109375*^9, 3.511219556390625*^9, 
  3.511219613390625*^9, 3.5112413438125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Clear :: \
wrsym\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.51072108109375*^9, 3.511219556390625*^9, 
  3.511219613390625*^9, 3.511241343828125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Remove", "[", "\"\<W`KNN`*\>\"", "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.511240903125*^9, 3.51124091296875*^9}, {
   3.511241087484375*^9, 3.51124108925*^9}, 3.51124118653125*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "ICA`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "PCA`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "matcher`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "classifier`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "Data`"}], ";"}]}], "Input",
 CellChangeTimes->{{3.51072087453125*^9, 3.510720876296875*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Needs", "::", "nocont"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Context \[NoBreak]\\!\\(\\\"KNN`\\\"\\)\[NoBreak] was not \
created when Needs was evaluated. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Needs/nocont\\\", \
ButtonNote -> \\\"Needs::nocont\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.511241190515625*^9, {3.511241282828125*^9, 3.511241288203125*^9}, {
   3.51124134703125*^9, 3.51124135715625*^9}, 3.511241589046875*^9, 
   3.51124174878125*^9, 3.511244893328125*^9, 3.51124503328125*^9, 
   3.511245154640625*^9, 3.511256727078125*^9, 3.51125686725*^9, 
   3.511257675625*^9, 3.511304182671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Names", "[", "\"\<W`KNN`*\>\"", "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.511241294421875*^9, 3.5112413099375*^9}, 
   3.5112417614375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Distancef\"\>", ",", "\<\"KNN\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.511241306328125*^9, 3.5112413108125*^9}, {
   3.51124135496875*^9, 3.51124135921875*^9}, 3.511241754078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"nxrData", "[", 
    RowBox[{"-", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Dimensions", "[", "data", "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "6", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.510721085796875*^9, 3.511219623703125*^9, 
  3.511241757734375*^9, 3.511304188859375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pd", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "2", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5107209214375*^9, 3.51072096171875*^9}}],

Cell[CellGroupData[{

Cell["\<\
Use Arch I, that is, use each measure as signal, each feature(like freq)  as \
sample\
\>", "Title",
 CellChangeTimes->{{3.510720764359375*^9, 3.510720797359375*^9}}],

Cell[CellGroupData[{

Cell["use one person\[CloseCurlyQuote]s two measures", "Section",
 CellChangeTimes->{{3.510131834875*^9, 3.5101318554375*^9}, {
   3.510732549484375*^9, 3.51073255353125*^9}, 3.510732612359375*^9, 
   3.5107354695625*^9}],

Cell[CellGroupData[{

Cell[" original data", "Subsection",
 CellChangeTimes->{{3.5107354728125*^9, 3.510735483359375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pd1", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.51020430915625*^9, 3.5102043508125*^9}, {
  3.5107208593125*^9, 3.51072091034375*^9}, {3.510720971171875*^9, 
  3.51072098321875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.510720984921875*^9, 3.510721090875*^9, 
  3.5112196875625*^9, 3.511241766953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ic", ",", "W", ",", "A"}], "}"}], "=", 
   RowBox[{"fastICA", "[", 
    RowBox[{"pd1", ",", 
     RowBox[{"retW", "\[Rule]", "True"}]}], 
    RowBox[{"(*", 
     RowBox[{",", 
      RowBox[{"noMean", "\[Rule]", "False"}]}], "*)"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"to", " ", "use", " ", "other", " ", "data"}], ",", 
    RowBox[{"must", " ", "be", " ", "centered"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.510721073265625*^9, 3.510721117546875*^9}, {
   3.51072141675*^9, 3.510721423421875*^9}, 3.510721619125*^9, {
   3.510722206046875*^9, 3.51072222865625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"use deltaW:\"\>", "\[InvisibleSpace]", 
   FractionBox["1", "1000"], "\[InvisibleSpace]", "\<\", Maxstep:\"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm["use deltaW:", 
   Rational[1, 1000], ", Maxstep:", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.51072112259375*^9, 3.510721426875*^9, 3.5107216223125*^9,
   3.5112196941875*^9, 3.511241769390625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Smallest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "0.038118711256819635`"}],
  SequenceForm[
  "Smallest remaining (non-zero) eigenvalue ", 0.038118711256819635`],
  Editable->False]], "Print",
 CellChangeTimes->{3.51072112259375*^9, 3.510721426875*^9, 3.5107216223125*^9,
   3.5112196941875*^9, 3.511241769484375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Largest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "1.6541192209831024`"}],
  SequenceForm[
  "Largest remaining (non-zero) eigenvalue ", 1.6541192209831024`],
  Editable->False]], "Print",
 CellChangeTimes->{3.51072112259375*^9, 3.510721426875*^9, 3.5107216223125*^9,
   3.5112196941875*^9, 3.511241769484375*^9}],

Cell[BoxData["\<\"whiten OK\"\>"], "Print",
 CellChangeTimes->{3.51072112259375*^9, 3.510721426875*^9, 3.5107216223125*^9,
   3.5112196941875*^9, 3.511241769484375*^9}],

Cell[BoxData["\<\"guess OK\"\>"], "Print",
 CellChangeTimes->{3.51072112259375*^9, 3.510721426875*^9, 3.5107216223125*^9,
   3.5112196941875*^9, 3.511241769484375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total time:\"\>", "\[InvisibleSpace]", 
   "0.09375`6.423516269895726", "\[InvisibleSpace]", "\<\"seconds\"\>"}],
  SequenceForm["total time:", 0.09375`6.423516269895726, "seconds"],
  Editable->False]], "Print",
 CellChangeTimes->{3.51072112259375*^9, 3.510721426875*^9, 3.5107216223125*^9,
   3.5112196941875*^9, 3.51124176959375*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "ic", "]"}]], "Input",
 CellChangeTimes->{{3.510721132171875*^9, 3.510721148265625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.510721430609375*^9, 3.51121970121875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"pd1", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.510721245578125*^9, 3.51072125215625*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1mHlczOsXx8eQuLakq4RKWbO2ueVGH6VFSav2mGqmZqqpEYpb+IZriVQI
WWpybcVFVJbcTEIRV0LdRMZSligRlcjP79V5+qfX6fN8zvs55znPU82Y4Gh3
EZ/H42n04vH+/73n64NV7STfspy451b0Azzb4fTd4UwTxf2QXBkb/rfKd4rV
MGJzafBDPg89sQYm7n2kE1jKYi3EPhL6+m3sTfEo7E4PbFxd1k1+PTy9HVZ4
/bQq6fp4bRPno7PlB+ljURuvtBlm24/08Zi4UHPx/tMs/0RkL5Yv9hD3pdgQ
45IGqxQ/Z/oUoL5hmuNUFYqnYd/yQUXO1UyfgdrVhpFT/JluhJYfGVX+69j+
jCHxKc5boMn2bwKjIy19u1ey+k3RVnf31tpqppvhhpVu6AEjps9ElFHlrpXq
fUj/DTmmbZ8yK7+Sbg797IQ4+7RepFvgX83p+jEXukifhUHDpcN1JzH/75hV
/eDc/tFMt4Tx7eULDfqz/c/G0Zjmcb5/sPxzEBkcU6Y1hOlW4N8Oy7W36CQd
KNOo0t3cSfk5wDMgv9skr4P0uXB7nxP3MZD83Fw4DAj2zhcy3RrxDV3FndOZ
bo1Tp/IGqJe2k26DcoN3g2u8mW6DFS9k5lOOMH0ePod2fP3+mOnzYOA7MDOs
+DPpthgT/ko7O4ntzxZfys/3G3L9C+l2GGKb/beDL/PbofrOttdXbzC/PYYt
K0g0y2R+exzsn1deMp2dvwNqip0jXRvf9KznHOAtKzN68I6d/3xcHiWMzJdT
v7j5CPy8vPSYJeu/I/avirqj9OFTfkdk/X68/UYI668TbJxDDPbyGd8JCypa
dqCL9W8BmmcUDAlWpfnhFiB/8KS8lqtMd4bTOk7tUx3NB+cMx7ldZTEzmb4Q
hZ8i3redZfpChDl91b98jfXXBa/sY9e80GL7c8HEXbMqkitZ/1xxYGGfencp
6XCFxcwMTb806h/nirWpPi5pgaQrXFE02q19+ac28rvB9lDzno4O5nfDUQO3
pyeKSefcoL/Ts6ziPfO7YbaZhYfckPndoX7S+i/tBKof7qhVfdsQIGB+d6w2
ud2UlUn1KdzhVKko2TD7I/k9MOeSweUOO+b3QGtDYJY5n3TOA/Gnuy+tHEm6
wgMBCl2rJmkr+T2x+liyp6ot83vCNvPhvTnapHOe4P82IWH3Zub3xGnhwSDL
hg/kX4Q09/6FQ/sw/yLs9lmQumZ7C/kXoVRNfC9lGvMvwvOTx7yflTST3wsT
ar/6Bm1nfi8ECuMGid6+J78XvpRO0H+vwvxe4C6LKlS3kc7zxjUV5Y0T/Wi+
4I2P8oeNrRZsHrzhFNM7e4YrzYPCG2G7+halh7P598Eer832Ud60Hj54OXVg
YbEH6ZwPOnvZBE+zovul8EFRuov2egl7X3yx0+1177rv1G/4Qqdg/M5ZA5nf
F7nvd+uKJOz8faG1Ypztbn/G98OoLbHaURKK4YdKk6Ct3jOZ3w/iLb0KJ09m
5++HdRcPd7eZMb8/7uvnPI7pZH5/JKou0TD1pvvL+aO4vuqRqI50hT9qq4uO
JGmx+x2AsLTUmJsnWP0BSJqi7tyupPebC8CNDJOYyyPY/gNQP2/umnVd38gf
CH6I+4/TJcwfCK8NiU+Nx5DOBWJf+bqDNyrZ/gPRus5AmljD3o/FWG+gOnS/
kPJjMTQyRsQJ1pLOLcbq4zvPvdZn/MXIKtlTNMmU+ZfA2Wz6uU0c8y+BX/r1
c5o85l8Cu0Npji4fmX8JNJfFvkzYwc5PAGjp5Isdab70BIi0Hmv4hk9+CKBl
WnUzN5t0gQCXt/5SLuWRnxOg+OaHU+PY+yUX4F3KNU+XP+n9Uwjg1se6Kn0k
zadSgPCgX+7tTWHvVxAyS4ZtGlzE+EHwWKudXhNHOoIwUO3GpT365BcEIexX
scTU4tmVHn4QpsonbE+wuNgTy4NQkLHNfpeVsidWBCG57UCR3PhxT6z8md/s
n4Ftt5/2xLxgBHT11baJp3x6wSjaZMx/Y0t+BMNBGn9xvi2tFwSjV0BJhMSZ
8YPxadXTiGHBdcQPhrEy/5X6MdIVwShIjFOOnMn4P+Nn3bEnZjwnfggSx6rU
JBx+RPwQwEJUvr2JdITARGezRu0Q0gUhyD4/adUwtxfED4FZVFnK4C+1xA+B
RhE3Y6Qd6YoQcIV7vfp3/kf8ELQbpdT1CiWdJ8SZ0I2D/xpaQ3whdA7kJI3u
/ZL4Qkh1PocmjCK/QAhDbo6Xvx3pnBBmnnndmbnVxBeivbfN3uShDcQXImJT
b3WvmQ+JL0Tni4SDa8rJzxMhd/9xa5dLpOuJMFf73dV5zxlfhH47tyeX+ZEu
EOHkcfN5iQmUnxPBkau7kLWJdLkIax+f3y+KZXwRcvKGeOs0PSC+COYdlQF+
AxqJH4q9FhkGNbuqiB+Key1H/L+NIj9CkbV41GqtvreJHwrHiU9Ol19l/FCM
NGp4zVnfJ34ofh2nGvDHr5RfEYqWD+2/5c+rJH4ozrpmze8vZvwwZPI3PH8Q
cIX4Ydjo4Jp+sugWzX8YDu16eaU9j34fCcJQ8WTTs/pl9+j+heH4gMkrQkxf
98TyMAjdPLu+rXxA9y8M/23JqvW5d78nVv7MtypilnFcNd0/MRw7JRf0q//t
ifXEOPPlo/klsxrii5GzlN/8wKmc+GI0l1hktDA/J0aStC4kfn0F8cUI8Hqq
1Gx8SPyf6w/7XLfre4f4YiRG5V5p9aT98CS4Gahq2XdaJfElEBf4vXLKJh0S
6Aekf329luoVSPD0UjovQofq4yRYk7q5+N+TtF4uwcD3tfZhfShWSHDFXFd8
5ibVo5RgQ57qW51ZlI8Xjhyb+Qsu9qN69MJxznD8ZXEw9QPh2CtW9tp4m/yC
cMjyLv49R0D1cOFYeXG51hWDWuKHY8mm5ZmZKTeJH47LfPvBlWseET8c3wXJ
g4JGk58XgeLHZ5o0T9cRPwJpujuMM9+SHxGYqLhVeMH8MfEjMPb+u7RlK8qI
H4H6R4pJUbb1xI9As8kfDt+flRI/At0L5Qa1q8ivjECq3FUSsfIs8SMRz+/o
zPiT9q8XiVyrgd3Yl0/8SMx7VJ0yXfaE+JGQJ2dt+GdLIfEjcdRm6r27Xxg/
EpNOjPfqWk/5FT/1wRFGp5yeET8SLhdV7rhrsP5LYV4w5NP6PvT3t54UBvYj
U62P3SW+FJ9+bLdPl70lvhSW3zS29kmh+eKkmHxpuKTVjvYnlyK1Vf2+qQ6d
l0KK62q1YfFJtF4pxfTeKR0Litj8R6HurEnnhJwq4kchg+M+te+j+UIUBvmf
KrWMJb8gCuLRFsFCBc0XF/Xz/9XwrKYjxJNHYdRoz1mvkqg+RRQ8MnZeOOtB
/VVGIdC/5FagNpv/aFwxdrGbF07noxeN7hN/ph1vJT+iUaH+RX2fKvVXEA1z
07dO3H66L1w0/gm0cRl3kvU/Gm66FqJxXdQ/RfTPCkItP5xXEj8aVZZ7/GIm
0nzzZLjWe9NWj+mkq8mwf27jGZONdN/1ZPCXPTHsK6f+zpChSavUesT8G7Q/
GTg1U/M3R+l8XWVo2HBI2DqJ3i+BDDtz6k5srqXPE2QyGG0tsP6rlc2vDGpj
3vi2nnrRE6fKwN8+Pzc5/RrVI4NlbFP28BMve+IzMuy26t+8t+461SdD4BMH
tZMi8lfK0Mdh8tWjG0lXylA6e8eaIvfGnviDDActDe9u66L8vKWYoGw6yTel
zzfUlmJ29l3Vw0YKqn8p2o47r/3oQf4ZS1FzYSI/t+Mw1b8UTzrrZSoVjVb/
Axj6Q6Q=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  ImageSize->{548.3333333333334, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.51072125328125*^9, 3.5107214345625*^9, 
  3.511219825234375*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{"ic", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"ic", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.510721171078125*^9, 3.5107212315625*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw9lHlczWkbxg9FdkXatBxECUVJmOhKCu37Sp1z6pzqtJwTslSTYxkxhZgx
RqiMdQyRrRcNJ8sHZRuJVqJ9X6lIvfN+up+3f/pc5/tcz/Xc9+9+nmkCibtw
OIfDUR3G4fzv/9Bfu5V6TtoPSfNKregHnAnJuuZVkkd6FDQcXnzI8Wm+N6SV
sdw8PC1A2k5aFUGFR+ShRl2kNdD2eoNaSnY3aW0kyh6dLzVj67mY5aSZt31w
gPR0XP9or3W7lHF9xIa1lp9O58iH9Cx0DCr3feGw/Q3Ba9qt+2dzP2kj1I/e
0m04gfG5/+7/T7E44StpYzSIDBDgxvh8PLU6edZ8+jfSC1Cg9lv5dtc20qa4
ayvIbtX6QtoMit90P/q/ZfUvhHyxVZ3Zvh7S5lj9sjToxifGF+HF5erFHgq9
pC2gECXVv1tTR3oxfi/YGKD+/3qW4NCG4i7vtgbSS3F4q2WWugbz/wAbw4Hj
P6bXk7bEhKYjyi2TWX3LEGt9UXdhPNt/OXLmOwWofOgjbYVnSUkPOd7VpAHN
vrltd34kLgNW6aw+nGpbRdwaw1ya/qlNof1l1hjp+8rMJPYT8RW4djyjSjCR
8RUYqaJn/GLmR+I2OO03/PwWJ8Zt0HquIe3K60riK2HvalhU0kL9l61EMt/y
esqFEuK2+El3fkbhUqpfZov8KXrpq6LfE7dDs8FWjRPF7Px20PWfM9Zcp5T4
KuStvaDSY8z8q/Cb0b5AuRubr9WY73T2rG3No6H5lq1GgPXUH41vthJfg5Kp
tzl5xpQnW4NjGbNrTrxk/bVHsMklJU9BB3F7+F7eVuBxgvXPAYlm58Y0J9L8
yBygHBafnVDL+ucIzgdp7dZ+uh8yR4y/urr60xjGncCPn9v05VkncSdMsXrV
OCqC9dcZY/b8LM76xvKd4VVssaNzJeMuOM2NeJjxgfldkFx33yxrcQVxVxRX
WPs+CKP5gysmtK9xVjN5R+tdkdjdeid6GnG5K0xdoot2PC4ivxtObHEe/OZB
54cbev2Xfn176w353bD3faPLLUficjdMS81Q2fDiNfndYeX8vOil+DP53XFB
mW9jlMz8//Jdwy2mjKD65O7wahLszzrwkPwe8BdWx02sZfkeqG0qELT4E5d5
IOr53uI3DizfA2OFvrG//niP/J74vHDArj2E+T1x8qcFCmeO3Sa/J84pCn64
voTOJ/fESj0vnVyFHPJ7Ycud93PmdrL+eaFiouaU6PxD5PdC5tjqrnAblu+F
Q6W5moI3ifSeemNJzaHoJ1qsfm+UdX2If9d0mObRG2si9G7qxbH+eyPYLeP2
zah08vugbnz/YZ1XzO8Dl6yLve529H7JfGA7O3Xk8Crqt9wHnNKCBWlPm+j8
vjDZNi50wdYW8vvis3/i8JQ+er9kvhgYtOwOymD1+6KgQelMXMoH8vvhddF/
grizTpLfD38Y+dUt8mokvx9mVK8/b72TfT8/lBytfrfzPsv3x8irbWfmm9N6
+MMkeOXm9B7m94d99Awv/V46n9wfldM16y7HMH8A/vrzwB3F8ez8AdBpzD/o
PpnupywAt8rjfK34VI88AGbhXfwl+rXkXwu17SMqp4H6hbUwNszSbOirIf9a
2Oe90b5xjN4L+VpMuD6zwXEkez/XoehQupp0EfOvg13hZp4Gj+6vbB3c1zsa
DMiIy9fhsm7E7wvd2f0OROzTXLXDRtQfBMK/vu2JMru/skBU2KzmJZiw/EDM
uZe8e0Iiez+DMNn0ziZjDvMHob3yufjdReKyIBinVM/+ZTzdf3kQDDy/TVo5
hn0/HvYc483+sJM4lwdDx5RjelfIDx7WHPILtTWg+ePx4FpkOm7jJHo/ZDyo
3itUXDKZ/Jk8hIRrr3ZtofdXzoOCvXVnArt/lTzom4TaxanS+8LhI1axjTto
Qftz+Si126Qx4u+3lM+HVt72+NiJ5OfxoTDu+7mf93+h+8GH6Yhj0ra09iGd
yYdmivFYN23icj68gpMnNSV/HtKVfDxO6BjkVJPmCDCgXREzyrlnSHMFKF1/
scX3G3EIEKqTP28uaD+eAIeHeW7R3MbyBfhVMW7LJiGtzxQgZ+euazNyWL4A
Mq56mO4pli8ANzDX8nwvcU4wjqhJJv3pRJwbjAtjFZKu+dF5EIyqXep+h5YT
5wXD4mPHmumJxGXBOBrCf9W6gOX/69/iZ+CaQFwejGyNo5Hb2ropPxhvn/s+
dlxPnBOC/NFnt+50Is4NwYhVZYrcUpYfAgVttQSlm8R5Ibg+x81SwOml/BDw
068bN6QSzwzBiUFVWVUMcXkInj3dv8hVjeWHoFHDWTx6GXGOENyTF/y327N8
IV4/2hgvdyMOIfqnBpif5LJ8Icpe6s9dcYblC1HnUub93YrlC2FTcKs+5SjL
F+KJj33Z+2ksX4iSxYEbdJpYvgimebePX5J2Ub4IO0N3Jd3fz/JF6HSsubUs
v5PyRdBuVloUf43li7DsQM8ypwfkzxQhTu/LryFsf7kIidIHeyQTiVeKsDW9
6qjGvD7KD4XDkuKFM2UdlB+Kv9MMRr8500D5obAu7FQ6sOkg5Ycizk2+zdSz
jvJD8Ukhr93Mp4jyQzG67ltQzaJayg+FjkPvyNNzaH1lKMyKrLSShTWUHwaR
mrB8ahDlccMQudnCLqK8mvLDkJ7Qk+BQ3kj5YUjpq3GwnEx+WRj2H99bmv2R
/Jlh6K86NeUPLeLyMFz2ESnNlBGvDEPXcdN5UUvpfJxweCnOOzj9t3rKD0eE
/fk2VQ/iCEfGyz1lkZbEeeHgfT3dkl7O8sNx2TBnb5oG1ZcZDklus8l9V1Z/
OI6+LDz1PJPqqQxHV7fdkmg7Ws8Rw3abWVJxE+3HFcNoXEn5eHvKgxh3uOKc
yb3k54lRZzxF93oFcZkYoT2P6kXWxDPFMPi6Yln6CqpXLoZyx4oFwvoqyhfj
YaLdBm0p+TkReLehInVx4yfKjwCPr7UjVZN9/wjwF46uU/uLOC8CXXGDvo8e
EJdFwMpw/s+dzR8pPwITitULGm/Q95JH4EVufNOEYJYfgb558cPaq1ooPxJa
Ec/6xzmy+iPRqe3y++b1xBGJsFYlO4GY5UfinpJ2lktWM+VHojjhcValF/HM
SMSK8vZkclopPxLGUpeLXlsrKT8St/rH69aYsP5H4ad1a6rPHymk/Ci0i95L
c/OJIwp77Yu9gx68oPwozLs0zby7g/oti4LLidxnxcUsPwp5My5cbeqieuVR
aLgxxu2wO81DZRT0cw6uN2glzonGrbcq3Bl3KY8bDRuVq1WWcdQPRCO2R3A8
TJ38vGg08cLH7qxl8xcN5W6L3FQu6cxo3G45mtBRxuYvGkpC/oHv3mz+ojHM
fGNr9gC7fxI88fy7QTqDzsOVQHmqpMfqKpt/CeQtPXrLf2H9l6BrFv9LhDm7
/xLkBZW9e6LP6peAr+K70kJCXC5B9uc9NotPs/5LkOM203/3fdZ/KbID34+4
70XzoyxFoeiv/BwJew+kSE7s8F1VROebL0VI0pt1JkVsPqXY+L30acNE2t9V
iiT3+kvyV+y+ShGzfd+IPUEVQ1oqBdYP/2LkyuZXirz2Apn99PIhnSpF9dOJ
kq+qNL+ZUpyYmtadISoZ0lek2CfelCLPZvdLiv3L1e+q36T9X0kx4BN+pT6a
vTdSDDq/tnq0i97HdilUqu7Yaz0kzonBBv1TwekLn1D9MbDV/Vgco9pE9cdA
PXxq2+TZxVR/DIJ23Ot61cHuRwwCV4zaHdxfZPVflpexGg==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.510721132859375*^9, 3.51072123209375*^9}, 
   3.51121982834375*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1lntczHkXx6eL+yW1FiWasLJ25VKRIh9R6aL7vWRqZpqZpqnJLenBEKvc
CilyGxRSL23JImRCpVpSusi1koQkSVtYnud5db7+8Tp95vN9n3N+53t+P8OQ
SHehOofDGa3G4fz///5/nYv850Q+Pm1Ysoj+AFeN924n2oooHgyZwdDd3JSv
FI9Czqs5Li+OdVM8Gqdm25au81JHfzwOBx/8Il0R1nSzP9bHw6Mbrf7V4ZDO
xcHNFa/WO3wm/yRg6azVK3g/KJ6C74+LnDXPqNHvp6JYmFdgvoCdPw1xJo9O
yuL66PfTkdDrLvSxZOf/jtiW6pxKg17SjZH2V1Jli5j5Z+GJh7XzxHZWz2zc
95roUJT8jeI5WFYxwbr0ahfFJpg/Ka5UW8h4ppAnFIu/Gn2i2AwFPXFaxh3M
PxfR4y6dex/C9HkYfHrt0qOtzG8OnXFfZLmvPlA8H+UjYy4PbGP5WKDwXW/0
IE/Gt0RB1Umrb/VfKF4Ab1Va5Uh+D8UL4VTWu/rxYua3AqfH7t0dZ8ZfhAP2
tZdVG9nvgZix40IMUzv7YwVQpV526qoB0xfD3PSOYKSCnq9iMWrP1GiJUtnz
tsbnA0rrnnTKT2GN9s33bXxfMN4SDCiaP0NfnelLsFXW/MsVS6YvhWxa8+Tb
76gfiqVIumkY41xB+XBssGd9itoGx1bSbWAmMuWabmd+W7hUPRpYtqONdFsk
ag/0Ti//SLodTmpYtmqlNZFuh8QS8aP6yR2kL4PN6HD+p9MNpC/DzKnP0j2H
sfrssTFn5Lnqpvb++VXY48m+/KTMaKY7ICJ6z4npQ3pId0CmU8LnRi7L3xFu
jxNb3YV0fxSOcGkK8dCPZboT8jtLZLPOMr4TDgz8t/fGH+9IX44d47aHTnz+
mPTlcLObmXbeifmdccbr3L4PVw+R7gyLyj/2Ru1i+blA8XpTyoZMFeku6BlY
5meWxOp3RcfwLJMY3T/7Y/wvnnh95yAp67crBKkzYjXP5/TXp3KFl3tS0jv9
dvK7ITXmRHT9X6n9OtzgrTFTY5fsLfndsKbQosygcX9/rHKDx6Wg1e6jmN8d
b3MeWee9ySW+O8qU83iVHWwe3aH2bfmyLvOXxHdHnVHxkt2iFvJ7YHtA0fLk
4iPE94B1/tB36kZvyO+BpfE3FrVNqSS/BzRK2gQzomheOJ7QzE1xTKttIL8n
nDzeac6PZ/PkiZLyrATHvlvk9wRHul8wovo1+b2w0nv6xXqnR+T3AqSzrYcp
X5HfCxYJKXdlE0lXeaHB+HXW+QKWvzeuSnaPSdhRRX5v2O0ZF106jOXvDVuB
mmK7Zhv5vTHY2cprjhb1l+OD/wwaK98w5gn5fXCv4/jPGes/0jz6YFv6JulU
W5pPlQ/6rmgLmsZ00z72xdpbw+c6mP8gvy8OzJMkFkW+Ir8v+EN7DnhnqKv6
/b6YkynacMT/E/n9cLHqpawx/h/y+2HF5I2ZLdF0vsIPykMt37S6PxPfD3OO
PuRrtHaR3x9hA4drDsj7l/z+iDmtJu3mM78//ome15pp1Et+f+hMV5+QEU71
cQLQXDEkvt6+j/wBkEjadXzHM38ALnovSEzN+UL+APC2GenOV6N8OYGw0r3/
UPHpK/kD0fVAy+rWZspXEYgtlilV3Ed0vioQ66/7Ho3/mflXYNzpnB8tv30n
/wr8aWNR2e1KumIF6i5n1xuqqD7VCnCPR7a5OLP+B8H1aMLLvhKWfxA6J4kd
jSvYPgnCF219g+sv6PmogtAu9HHLnkT94KzEobq2YDU/xl+Jt0sizC3OsPpX
YsMdM9uV16k+1Uo0H9Fed6+EzufwUJTf8eLGcPJzeRC5tg8rzyM/eChY0l2v
bUA6j4dfV9mOOD+H5ceD8R2LKUMCqD4lDyvDjQpcTal+FQ9bZuiJ3kwlfiMP
XvcHBw1tYv0LxsI3k1c5naD6uMGoM5YebWtg8xSMsgzXmitZjB+MW2rjE/RE
bL8EI+HZBe+8w9X9sTIYAwsMA4YPJ10VjCb+6wVOr571x43BOF7rknRewvZr
CA51NrS+0ajrj7kh8CzOngvFe9pHIbA+Ecl51vO8P+aFoLpg08od92h/KUJg
Yq9u9bTqCfFDIJiSs23CRjpfFYJtL6vq7h2i/d4Ygn1d4zeukzM+H68Fj3L1
y+uJz8eep1OKTA9T/uCj4VRy47aPD4nPx7no9DEn88mv4ON7s6B7nUkt8fnI
eTo6oC+Y8fn45HBWNyKW6mvko+IWT3GznOrjCFDxxFPtVOwL4gvQNf5mRk0X
4wvgWj5ScDyO8uMJUDwia9BsD9Z/AZI/T5lherWC+AJkRhdlK9Npf6oEcDkz
U+On7TXEFyCWe/jHNvb8OELcH3Haa3XsA+ILkeyfty7xIO0/CKF1RmvaT7PJ
zxPCHBmFzYlsPwuhFhNrU2lCfqUQ2QvtTKvE5FcJ8dzx0pWvxfeIL4SPyfmd
e73Y/g9Fs2/vPP1S6h83FC9SXtjH8+n9h1Do/0cxujBqO/FDwdkUZpwQwuoP
hc7LQps1+1n9oTC8ZhnqfYfVHwrew3luxTNIbwzFktroiHsmdD5HhL5vnpoX
pIU0/yKkXh/trfNPPc2/CPtDb4X/LKV9yRPBXum3p6H6b7p/IjwvPFLtzPtA
90+Ev3V2Bb8ZU0f3T4RDOiPNrn9vpvsnwqbSGnGjIb3vOGJE9QUdOKdoIb4Y
7iOWD4o4UkN8MfY+SRDWPKD3L0+MD6sOFmVY0/tKIcbMrbeWVBjQ971SjM7b
ZhMe5ZcQXwxjf/UFqoeNxBfjhtpTX6U/vU85Elx78KTcdfdz4kvQlVtc1q55
n/gSNDW/9754kvLnSbA5z2ywxXHyKyTQuD4jJBqML8HaAvHhsCzqp0qC93pN
a50P1RJfAvXEtvZZnXeIH4a0TsWiNVspP24YLCMSe88mlBI/DAO0h46aNp7y
44UhezM/7PlY6o8iDLsNL2cFTXpK/DAkbtHzy45j/DDMfSByzj1P+TWGYcTc
/dI0XRXxpTDwXRwws4C+D7hSHHv2U/TXH38RX4pQvee85DbSeVK0xmpobXe8
SXwp2lLuyn3XUH5KKcRjktZmn6D6VFLce9zjsfxOK/Gl+CE5n9989jHxwzFG
/8Ps4rHviR+Oc9fyyzq7qF8IRzxnv/yuhPrDC4erQU6U39oi4oejaJI0e5UD
fZ8owxGXm9/ZsvMZ8cMR+d0xuWQ944fDpiNXKy+ggPgyHJ76e2aNTgfxZUi9
nJw5Nv0a8WX48jRnyOpLNJ88GdpkZXpnP2cRX4brq4+rnO6SrpRh1M5fNOM9
z9D9k0GtJcbONZnNvwySEamhA7xu0v2LwHODxLVbXGi+uRGI21tubjeM9T8C
2qG7hKv3sucfgQZr+yOy3svEj8CHa7ykKQbUH2UEjK55dbeDfS9H4GOuIEVv
Npv/CBzdMCLQckAC1R+JCwXuAy4EMH4kJtfVdJhZ5xE/Eod++zVpZyV9j/Ei
MXdsoDjILI34kdA29ekyX8jqjwQnK0BdlTKP+JH4cnjWmZqHbP4iUTj53XGz
relUvxyYXuegNCL/KDl0X/gYGxdRfVw5SiNlb/ato++tWXJMn/CmvnZNBuUn
x4kgJETtpvxc5WhzF1g1FYgpXzkMdh0cW72b+i+XoyNWV/fewY20P+XQuty8
I+cY8ZPkWHA7s/q20T7ap3IEKpqHSOKo/3/KUTfjcNW39Ex6vnL8mtI8+u63
t/36Azk+Kc0KueNLad/K4bPffe5bC5rnTjkOB74cWqRXQPVHYcDrfPNj9dVU
fxTMkru099ko6X0QhXO2k7+/bqPzZ0VhdqBD5hLTi1R/FGqmdtcO72q++V+s
3rEb
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.510721132859375*^9, 3.51072123209375*^9}, 
   3.511219828359375*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nic", "=", 
   RowBox[{"ic", "/", 
    SqrtBox[
     RowBox[{"Length", "[", 
      RowBox[{"ic", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nic", ".", 
  RowBox[{"nic", "\[Transpose]"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.9963768115942022`", ",", "2.92157227738414`*^-16"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"2.92157227738414`*^-16", ",", "0.9963768115942022`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.51124180171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"A", ".", "ic"}], "-", 
    RowBox[{
     RowBox[{"Standardize", "[", 
      RowBox[{
       RowBox[{"pd1", "\[Transpose]"}], ",", "Mean", ",", 
       RowBox[{"1", "&"}]}], "]"}], "\[Transpose]"}]}], "]"}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51072137171875*^9, 3.5107213880625*^9}, 
   3.510721449078125*^9, {3.510721550375*^9, 3.5107215618125*^9}, {
   3.510721666609375*^9, 3.51072168425*^9}, 3.511219738484375*^9}],

Cell[BoxData["0"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.51072156259375*^9, 3.5107216506875*^9, 
  3.510721685734375*^9, 3.511219706234375*^9, 3.511219738484375*^9}],

Cell[BoxData[
 RowBox[{"ic", ".", 
  RowBox[{"ic", "\[Transpose]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.510721569671875*^9, 3.510721632578125*^9}, {
   3.5107335265*^9, 3.51073357521875*^9}, 3.511219734046875*^9, {
   3.51124178959375*^9, 3.511241791046875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"274.99999999999994`", ",", 
     RowBox[{"-", "3.044399042757828`*^-14"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.044399042757828`*^-14"}], ",", "274.9999999999998`"}], 
    "}"}]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51072157290625*^9, 3.510721602125*^9}, 
   3.5107216334375*^9, 3.510721704328125*^9, 3.510721818625*^9, 
   3.5107335761875*^9, {3.511219717609375*^9, 3.511219734046875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.9963768115942025`", ",", 
     RowBox[{"-", "1.143034434023828`*^-16"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.143034434023828`*^-16"}], ",", "0.996376811594202`"}], 
    "}"}]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51072157290625*^9, 3.510721602125*^9}, 
   3.5107216334375*^9, 3.510721704328125*^9, 3.510721818625*^9, 
   3.5107335761875*^9, {3.511219717625*^9, 3.511219734046875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Standardize", "[", 
    RowBox[{
     RowBox[{"pd1", "\[Transpose]"}], ",", "Mean", ",", 
     RowBox[{"1", "&"}]}], "]"}], "\[Transpose]"}], ".", 
  RowBox[{"nic", "\[Transpose]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5107214663125*^9, 3.51072151603125*^9}, {
   3.51072173709375*^9, 3.510721743921875*^9}, {3.51072218603125*^9, 
   3.510722186453125*^9}, 3.51073358625*^9, 3.511219734046875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "17.51940554404205`"}], ",", 
     RowBox[{"-", "1.4250111542456838`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.450451740717055`"}], ",", 
     RowBox[{"-", "4.858626581428962`"}]}], "}"}]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.510721473546875*^9, 3.5107214860625*^9}, 
   3.510721517078125*^9, {3.510721738265625*^9, 3.510721744703125*^9}, 
   3.510722187109375*^9, 3.51073358721875*^9, {3.51121971396875*^9, 
   3.511219734046875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pd2", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cpd2", "=", 
   RowBox[{
    RowBox[{"Standardize", "[", 
     RowBox[{
      RowBox[{"pd2", "\[Transpose]"}], ",", "Mean", ",", 
      RowBox[{"1", "&"}]}], "]"}], "\[Transpose]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"cpd2", ".", 
  RowBox[{"ic", "\[Transpose]"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.510722747046875*^9, 3.51072277925*^9}, {
   3.51073360940625*^9, 3.5107336098125*^9}, 3.51073466934375*^9, {
   3.5112198045625*^9, 3.511219812953125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "14.159816162961942`"}], ",", "14.28814154098249`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"12.314365782583572`", ",", "5.094949249390178`"}], "}"}]}], 
  "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.510733623921875*^9, 3.510734669796875*^9, {3.511219792953125*^9, 
   3.511219812953125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cpd3", "=", 
   RowBox[{
    RowBox[{"Standardize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"pd", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "\[Transpose]"}], ",", "Mean", ",", 
      RowBox[{"1", "&"}]}], "]"}], "\[Transpose]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"cpd3", ".", 
  RowBox[{"nic", "\[Transpose]"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51072285646875*^9, 3.510722931546875*^9}, 
   3.510733280171875*^9, 3.51073360409375*^9, {3.5112198045625*^9, 
   3.511219812953125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.23054981356905954`", ",", 
     RowBox[{"-", "0.451041193279771`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.37836730183014844`"}], ",", "0.6298051810880093`"}], 
    "}"}]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.510733604921875*^9, {3.5112198045625*^9, 3.511219812953125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"project", " ", "data", " ", "into", " ", "new", " ", "basis"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"cd", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"rowMean", "[", 
         RowBox[{"pd", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
        RowBox[{"nic", "\[Transpose]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "2", ",", 
         RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", "%", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ncd", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Normalize", "[", "#", "]"}], "&"}], ",", 
         RowBox[{
          RowBox[{"rowMean", "[", 
           RowBox[{"pd", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
          RowBox[{"ic", "\[Transpose]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "2", ",", 
         RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.510723005578125*^9, 3.510723013484375*^9}, {
   3.510723252578125*^9, 3.51072330103125*^9}, {3.510732822578125*^9, 
   3.51073286771875*^9}, {3.51073330759375*^9, 3.51073332584375*^9}, {
   3.510733377671875*^9, 3.510733389*^9}, 3.510733638*^9, {
   3.51073530771875*^9, 3.510735313984375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"49", ",", "2", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.51072330165625*^9, 3.5107328299375*^9, 3.51073288025*^9, 
   3.51073339121875*^9, {3.510733628203125*^9, 3.510733638703125*^9}, 
   3.510735315578125*^9, 3.51121984584375*^9, 3.511241808578125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"49", ",", "2", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.51072330165625*^9, 3.5107328299375*^9, 3.51073288025*^9, 
   3.51073339121875*^9, {3.510733628203125*^9, 3.510733638703125*^9}, 
   3.510735315578125*^9, 3.51121984584375*^9, 3.51124180859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"ncd", "[", 
     RowBox[{"[", 
      RowBox[{";;", "20"}], "]"}], "]"}], ",", 
    RowBox[{"Joined", "->", "True"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"cd", "[", 
      RowBox[{"[", 
       RowBox[{";;", "20"}], "]"}], "]"}], ",", 
     RowBox[{"Joined", "->", "True"}]}], "]"}], "*)"}], "]"}]], "Input",
 CellChangeTimes->{{3.51072331190625*^9, 3.5107233245625*^9}, {
  3.5107250515625*^9, 3.51072505875*^9}, {3.510733337078125*^9, 
  3.51073333734375*^9}, {3.510733651*^9, 3.510733683796875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-0.7039099444300133, 0.7102892299145016}, {0.9240340735490855, 
     0.3823101240096618}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    LineBox[{{-0.655665049196815, 0.7550518811722396}, {
     0.6024813681327464, -0.7981329469786936}}]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], 
    LineBox[{{-0.1930797977976191, -0.981183057172529}, \
{-0.07192943610208836, -0.9974097233444416}}]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], 
    LineBox[{{0.9398604021945014, 0.3415588154136707}, {0.8961837411708456, 
     0.4436831099569002}}]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], 
    LineBox[{{-0.9982732169394983, 
     0.05874167465492703}, {-0.9950871529962139, -0.09900281784823059}}]}, 
   {Hue[0.8503398874989481, 0.6, 0.6], 
    LineBox[{{0.9743676770781751, -0.22496139638898335`}, {
     0.9853411352525691, -0.17059556611816856`}}]}, 
   {Hue[0.08640786499873876, 0.6, 0.6], 
    LineBox[{{-0.36584038106046424`, 
     0.930677610983274}, {-0.33203976367497984`, 0.9432653896643635}}]}, 
   {Hue[0.3224758424985268, 0.6, 0.6], 
    LineBox[{{0.8997768696283684, 0.43635030065507485`}, {0.9139318670749126, 
     0.40586764141153775`}}]}, 
   {Hue[0.5585438199983166, 0.6, 0.6], 
    LineBox[{{-0.908297506764758, -0.41832480108753367`}, \
{-0.6382560929146436, -0.7698241096882676}}]}, 
   {Hue[0.7946117974981064, 0.6, 0.6], 
    LineBox[{{0.9644718004471098, -0.26418581745110825`}, {
     0.9796045778270358, -0.20093499222463718`}}]}, 
   {Hue[0.030679774997896203`, 0.6, 0.6], 
    LineBox[{{0.802589838807525, 0.5965312654361974}, {0.8363656772436104, 
     0.5481719200477503}}]}, 
   {Hue[0.266747752497686, 0.6, 0.6], 
    LineBox[{{0.9946190856723979, 0.10359958694996384`}, {
     0.9015480259782306, -0.43267904600841917`}}]}, 
   {Hue[0.5028157299974758, 0.6, 0.6], 
    LineBox[{{-0.7606787718641526, -0.6491284973217896}, {
     0.30594683262508576`, -0.952048599393265}}]}, 
   {Hue[0.7388837074972656, 0.6, 0.6], 
    LineBox[{{0.8253447204149055, 0.5646291636846625}, {0.5437062617342141, 
     0.8392755810524969}}]}, 
   {Hue[0.9749516849970554, 0.6, 0.6], 
    LineBox[{{0.9614364908152965, 0.2750270425408527}, {0.9729697091331407, 
     0.2309327718392774}}]}, 
   {Hue[0.21101966249684523`, 0.6, 0.6], 
    LineBox[{{-0.7714894042399908, 
     0.6362421702036294}, {-0.18144395750653833`, 0.9834012864972089}}]}, 
   {Hue[0.44708763999663503`, 0.6, 0.6], 
    LineBox[{{-0.5918518941678521, 
     0.8060467327456426}, {-0.9986419307005487, -0.05209888911176867}}]}, 
   {Hue[0.6831556174964248, 0.6, 0.6], 
    LineBox[{{0.3092209135334208, 0.9509902347729743}, {0.29827078828499937`, 
     0.9544812920407842}}]}, 
   {Hue[0.9192235949962146, 0.6, 0.6], 
    LineBox[{{-0.913173681144149, 0.4075706418102808}, {-0.9946961010150303, 
     0.10285750641298189`}}]}, 
   {Hue[0.15529157249600445`, 0.6, 0.6], 
    LineBox[{{-0.37960540041388163`, -0.9251484961759472}, \
{-0.047920356763843874`, -0.9988511597868954}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{510.0000000000008, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.51072332509375*^9, 3.51072505990625*^9, 3.510732885625*^9, 
   3.510733338109375*^9, 3.5107333955*^9, {3.51073363075*^9, 
   3.51073368446875*^9}, 3.510735318921875*^9, 3.511219849234375*^9}]
}, Closed]],

Cell[BoxData[{
 RowBox[{"sj1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"J1", "[", 
     RowBox[{"ncd", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", ";;", ",", "i"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"cd", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"sj1", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"5", ",", "6"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", "good", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.51072335875*^9, 3.510723377125*^9}, {3.510723456375*^9, 
   3.51072346275*^9}, {3.510723504484375*^9, 3.51072353790625*^9}, {
   3.510723575359375*^9, 3.510723584078125*^9}, {3.51072561446875*^9, 
   3.510725617359375*^9}, 3.51073374584375*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"sj1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"J1", "[", 
     RowBox[{"cd", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", ";;", ",", "i"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"cd", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"sj1", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"5", ",", "6"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.511221906390625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.182465839882252`", ",", "3.123641661289908`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.510723378078125*^9, 3.510723409140625*^9, {3.510723456828125*^9, 
   3.510723463390625*^9}, {3.5107235068125*^9, 3.510723538390625*^9}, {
   3.510723577703125*^9, 3.51072358503125*^9}, 3.5107329119375*^9, {
   3.510733737890625*^9, 3.510733746359375*^9}, 3.51073532159375*^9, 
   3.511219861578125*^9, 3.51122190746875*^9}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1., 6.}, {2., 5.}, {1., 6.}, {2., 5.}, {
   1.3865752886870462`, 5.}, {1.0596522811475297`, 6.}}, {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[{6, 5}]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[{1, 2}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 5.},
  ImageSize->{380.0000000000002, Automatic},
  PlotRange->{{0, 2.}, {5, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.510723378078125*^9, 3.510723409140625*^9, {3.510723456828125*^9, 
   3.510723463390625*^9}, {3.5107235068125*^9, 3.510723538390625*^9}, {
   3.510723577703125*^9, 3.51072358503125*^9}, 3.5107329119375*^9, {
   3.510733737890625*^9, 3.510733746359375*^9}, 3.51073532159375*^9, 
   3.511219861578125*^9, 3.5112219075*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"eucDist", "[", 
    RowBox[{"ncd", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", ";;"}], "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4", ",", "0.3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.6"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"looks", " ", "very", " ", "good"}], " ", ".."}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.510723623984375*^9, 3.510723639421875*^9}, {
  3.510725096953125*^9, 3.510725131671875*^9}, {3.51073300971875*^9, 
  3.510733064953125*^9}, {3.51073376128125*^9, 3.510733791546875*^9}, {
  3.51073414425*^9, 3.510734144828125*^9}, {3.51122105659375*^9, 
  3.511221073953125*^9}, {3.51122186096875*^9, 3.511221862421875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., 0.0977891156462585}, {0.3, 0.09672619047619048}, {0.6, 
     0.11479591836734694`}, {0.8999999999999999, 0.10012755102040816`}, {1.2, 
     0.1211734693877551}, {1.5, 0.16964285714285715`}, {1.7999999999999998`, 
     0.2997448979591837}, {2.1, 0.}, {2.4, 0.}, {2.6999999999999997`, 0.}, {
     3., 0.}, {3.3, 0.}, {3.5999999999999996`, 0.}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    LineBox[{{0., 0.5306122448979592}, {0.3, 0.30612244897959184`}, {0.6, 
     0.061224489795918366`}, {0.8999999999999999, 0.04081632653061224}, {1.2, 
     0.02040816326530612}, {1.5, 0.02040816326530612}, {1.7999999999999998`, 
     0.02040816326530612}, {2.1, 0.}, {2.4, 0.}, {2.6999999999999997`, 0.}, {
     3., 0.}, {3.3, 0.}, {3.5999999999999996`, 0.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{473.3333333333335, Automatic},
  PlotRange->{0, 0.6},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.51072398159375*^9, 3.510724019625*^9}, 
   3.5107240984375*^9, {3.51072510684375*^9, 3.510725132078125*^9}, {
   3.510732998125*^9, 3.510733065453125*^9}, {3.51073375421875*^9, 
   3.510733792015625*^9}, 3.51073414590625*^9, 3.510735324703125*^9, 
   3.511219913734375*^9, {3.511221070375*^9, 3.51122107421875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"eucDist", "[", 
    RowBox[{"cd", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", ";;"}], "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4", ",", "0.3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.6"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{3.511221874125*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., 0.01020408163265306}, {0.3, 0.02806122448979592}, {0.6, 
     0.042091836734693876`}, {0.8999999999999999, 0.05505952380952381}, {1.2, 
     0.07865646258503402}, {1.5, 0.07908163265306123}, {1.7999999999999998`, 
     0.07546768707482993}, {2.1, 0.06207482993197279}, {2.4, 
     0.06590136054421769}, {2.6999999999999997`, 0.06696428571428571}, {3., 
     0.05612244897959184}, {3.3, 0.04060374149659864}, {3.5999999999999996`, 
     0.03826530612244898}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    LineBox[{{0., 0.12244897959183673`}, {0.3, 0.32653061224489793`}, {0.6, 
     0.24489795918367346`}, {0.8999999999999999, 0.10204081632653061`}, {1.2, 
     0.08163265306122448}, {1.5, 0.02040816326530612}, {1.7999999999999998`, 
     0.04081632653061224}, {2.1, 0.}, {2.4, 0.}, {2.6999999999999997`, 0.}, {
     3., 0.}, {3.3, 0.}, {3.5999999999999996`, 0.02040816326530612}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 0.6},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.51122187878125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "cosdist", " ", "dist"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"when", " ", "using", " ", "cosdist"}], ",", " ", 
    RowBox[{"data", " ", "is", " ", "actually", " ", "first", " ", 
     RowBox[{"normalized", ".", "so"}], " ", "normalization", " ", "before", 
     " ", "does", " ", "never", " ", "matter"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], "=", 
     RowBox[{"dDist", "[", 
      RowBox[{"ncd", 
       RowBox[{"(*", 
        RowBox[{"[", 
         RowBox[{"[", 
          RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "*)"}], ",", 
       "CosineDistance"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{"dt", "=", 
     RowBox[{"DistList", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dd", ",", "ds"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "3", ",", "0.4"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"dt", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.510725628375*^9, 3.51072569490625*^9}, {
   3.510725728609375*^9, 3.51072582678125*^9}, {3.51073384628125*^9, 
   3.51073387134375*^9}, {3.5107339565625*^9, 3.510733980953125*^9}, {
   3.510734039375*^9, 3.510734045140625*^9}, {3.510734087703125*^9, 
   3.510734117125*^9}, {3.510734192875*^9, 3.510734195796875*^9}, {
   3.510734226640625*^9, 3.510734268921875*^9}, 3.51122181803125*^9, {
   3.511221929046875*^9, 3.511221932796875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., 0.3076105442176871}, {0.4, 0.12755102040816327`}, {0.8, 
     0.11819727891156463`}, {1.2000000000000002`, 0.13839285714285715`}, {1.6,
      0.3082482993197279}, {2., 0.}, {2.4000000000000004`, 0.}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    LineBox[{{0., 0.8979591836734694}, {0.4, 0.061224489795918366`}, {0.8, 
     0.}, {1.2000000000000002`, 0.02040816326530612}, {1.6, 
     0.02040816326530612}, {2., 0.}, {2.4000000000000004`, 0.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.510725664609375*^9, 3.510725695921875*^9}, {
   3.510725729515625*^9, 3.510725827703125*^9}, {3.510733841078125*^9, 
   3.5107338723125*^9}, {3.5107339575*^9, 3.51073398146875*^9}, {
   3.510734021828125*^9, 3.5107340459375*^9}, {3.510734088328125*^9, 
   3.510734109921875*^9}, 3.51073533009375*^9, 3.511221518359375*^9, {
   3.511221821203125*^9, 3.511221824*^9}, {3.511221929875*^9, 
   3.511221931203125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TTest", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], ",", "0", ",", 
   RowBox[{"{", 
    RowBox[{"\"\<TestDataTable\>\"", ",", "\"\<TestConclusion\>\""}], "}"}], 
   ",", 
   RowBox[{"SignificanceLevel", "\[Rule]", ".0001"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.510724032859375*^9, 3.510724080171875*^9}, {
   3.510725193625*^9, 3.51072521646875*^9}, 3.51073533734375*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"TTest", "::", "nortst"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"At least one of the p\[Hyphen]values in \
\[NoBreak]\\!\\({0.`, 0.`}\\)\[NoBreak], resulting from a test for normality, \
is below \[NoBreak]\\!\\(0.00005`\\)\[NoBreak]. The tests in \
\[NoBreak]\\!\\({\\\"T\\\"}\\)\[NoBreak] require that the data is normally \
distributed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/TTest\\\", ButtonNote -> \\\"TTest::nortst\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.510735338109375*^9, 3.51122153459375*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"TTest", "::", "nortst"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"At least one of the p\[Hyphen]values in \
\[NoBreak]\\!\\({0.`, 0.`}\\)\[NoBreak], resulting from a test for normality, \
is below \[NoBreak]\\!\\(0.00005`\\)\[NoBreak]. The tests in \
\[NoBreak]\\!\\({\\\"T\\\"}\\)\[NoBreak] require that the data is normally \
distributed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/TTest\\\", ButtonNote -> \\\"TTest::nortst\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.510735338109375*^9, 3.51122153475*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Intersection", "::", "normal"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Nonatomic expression expected at position \
\[NoBreak]\\!\\(2\\)\[NoBreak] in \[NoBreak]\\!\\(\\(\\({\\\"PairedT\\\", \
\\\"T\\\", \\\"Z\\\", \\\"KSampleT\\\"}\\)\\) \[Intersection] \\\"T\\\"\\)\
\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/normal\\\", ButtonNote -> \
\\\"Intersection::normal\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.510735338109375*^9, 3.511221534953125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"TTest", "::", "nortst"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"At least one of the p\[Hyphen]values in \
\[NoBreak]\\!\\({0.`, 0.`}\\)\[NoBreak], resulting from a test for normality, \
is below \[NoBreak]\\!\\(0.00005`\\)\[NoBreak]. The tests in \[NoBreak]\\!\\(\
\\(\\({\\\"PairedT\\\", \\\"T\\\", \\\"Z\\\", \\\"KSampleT\\\"}\\)\\) \
\[Intersection] \\\"T\\\"\\)\[NoBreak] require that the data is normally \
distributed. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/TTest\\\", ButtonNote -> \\\"TTest::nortst\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.510735338109375*^9, 3.511221534953125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(TTest :: \
nortst\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.510735338109375*^9, 3.511221534953125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   StyleBox[
    TagBox[GridBox[{
       {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
       {"\<\"T\"\>", "16.269963366692522`", "4.619867183144923`*^-22"}
      },
      AutoDelete->False,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
      GridBoxDividers->{
       "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
        "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
     "Grid"], "DialogStyle",
    StripOnInput->False], ",", 
   TemplateBox[{
    "\"The null hypothesis that \"",
     TemplateBox[{
      "\"the \"", "\"median\"", "\" difference is \"", "0", "\" \""}, "Row", 
      DisplayFunction -> (
       RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, 
         "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ), 
      InterpretationFunction -> (RowBox[{"Row", "[", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )],
     "\"is rejected at the \"",
     TemplateBox[{"0.01`", "\" percent level \""}, "Row", 
      DisplayFunction -> (RowBox[{#, "\[InvisibleSpace]", #2}]& ), 
      InterpretationFunction -> (RowBox[{"Row", "[", 
         RowBox[{"{", 
           RowBox[{#, ",", #2}], "}"}], "]"}]& )],
     TemplateBox[{"\"based on the \"", "\"T\"", "\" test.\""}, "Row", 
      DisplayFunction -> (
       RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3}]& ), 
      InterpretationFunction -> (RowBox[{"Row", "[", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]},
    "Row",
    DisplayFunction->(
     RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, 
       "\[InvisibleSpace]", #4, "\[InvisibleSpace]", #5}]& ),
    InterpretationFunction->(RowBox[{"Row", "[", 
       RowBox[{"{", 
         RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.510735338453125*^9, 3.511221534984375*^9}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"is", "=", "cd"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.51072489071875*^9, 3.51072489578125*^9}, {
   3.510725087671875*^9, 3.5107250893125*^9}, {3.51072524878125*^9, 
   3.51072525334375*^9}, {3.51072528928125*^9, 3.51072528971875*^9}, 
   3.510725327265625*^9, 3.510735213515625*^9, {3.51122171115625*^9, 
   3.511221772875*^9}, 3.5112218308125*^9}],

Cell[BoxData[
 RowBox[{"tg", ";"}]], "Input",
 CellChangeTimes->{{3.511221665765625*^9, 3.511221666015625*^9}, 
   3.51122183484375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"euclidean", " ", "classify"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"EER", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "0.005"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"cos", " ", "c"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"EER", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist2", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "0.005"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.510724961546875*^9, 3.5107249756875*^9}, {
  3.510725267984375*^9, 3.51072526953125*^9}, {3.510733139484375*^9, 
  3.510733142234375*^9}, {3.5107351485625*^9, 3.51073517809375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.3249999999999937`", ",", 
   RowBox[{"{", 
    RowBox[{"0.1636904761904762`", ",", "0.16326530612244897`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.510724955421875*^9, 3.510725010671875*^9, 3.510725144390625*^9, {
   3.5107252571875*^9, 3.51072527125*^9}, 3.51072530921875*^9, 
   3.5107253850625*^9, {3.5107331371875*^9, 3.510733146859375*^9}, {
   3.510735199140625*^9, 3.510735222609375*^9}, 3.510735350953125*^9, 
   3.51122156184375*^9, 3.51122178825*^9, 3.511221842703125*^9, 
   3.5112418276875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.16500000000000006`", ",", 
   RowBox[{"{", 
    RowBox[{"0.17899659863945577`", ",", "0.1836734693877551`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.510724955421875*^9, 3.510725010671875*^9, 3.510725144390625*^9, {
   3.5107252571875*^9, 3.51072527125*^9}, 3.51072530921875*^9, 
   3.5107253850625*^9, {3.5107331371875*^9, 3.510733146859375*^9}, {
   3.510735199140625*^9, 3.510735222609375*^9}, 3.510735350953125*^9, 
   3.51122156184375*^9, 3.51122178825*^9, 3.511221842703125*^9, 
   3.51124182840625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"use", " ", "first", " ", "ic"}], ",", 
    RowBox[{"eer", "=", "0.2"}], ",", 
    RowBox[{"second", " ", "0.28"}], ",", 
    RowBox[{
     RowBox[{
     "two", " ", "together", " ", "0.175", "\[IndentingNewLine]", "using", 
      " ", "cos", " ", "dist", " ", "eer"}], "=", " ", "0.18"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"when", " ", "using", " ", "non"}], "-", 
     RowBox[{"normal", " ", "data"}]}], ",", " ", 
    RowBox[{
     RowBox[{"euclidean", " ", "eer"}], "=", 
     RowBox[{"16.3", "%"}]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.510725301453125*^9, 3.5107253456875*^9}, {
  3.510725454265625*^9, 3.510725465390625*^9}, {3.51073536584375*^9, 
  3.510735397421875*^9}, {3.51122195384375*^9, 3.51122200534375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"r1", "=", 
  RowBox[{"RocPlot", "[", 
   RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "6", ",", "0.02"}], "}"}], ",", "1"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.511238432546875*^9, 3.511238489796875*^9}, {
  3.51123860228125*^9, 3.511238602765625*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJyd1wlwjVcUB/DYUpFYQmIJJkIIERKRWBLybkKIbLKIpTS1jKWWaMIoDSra
sYyWjmo1qX0Zy5i2dFCGUpoyNGroYpm0tEVsEcVoqo3e8/++3P885s2YZjKT
+b28973vnnvOuecLGDs9Y3xNNze3kBpubvLX+WeEelH7+93uN27ecJW7Nb/W
qW+2Opy99xkXO2Iiflr87d/DnvOZ5S+/80/kaWPfQ2sWrs48a2xd58Iz779s
PHXWD23/+OyqY63+VEXeUPv614ytz5c5cNmKLDVX//fD8rvG5w/XGP9b4j0H
3jZpiFKFX547XOO+o3ed0G1XrmWq8vodmww7+MAxAhfKVEmP3Vct7VzpmI03
ZBh/rL+tXnaGSuvw6czp6l/H/mmX9027nK524sdNyd2eHZ6uaupve+xeUz3a
uFsvIc2+fi3jASdf/WJz0zrqtV0N33u0cbDqjgW5P2d9cz6H1qTa3++hrvvI
ilLs+HiqwEEr9W+yvd76auy8SfoKSWrZ+0cmDOzira7KxxcOUimjbv6yILyx
HacE+36aGH9+MV1/xEdlp359utPsgcqKm6+y4jtAzZfLPmpqvCNeFtBMyer3
TYu386WFsuLbXx3TV+ldx09Z8YpTvTYk6zugcfvRrex4xdr339rYioO/8dOi
1nvrVtISvYC32tjxiVGfyL9v0yf0u/yLAuz49FG/J0oA2xpjOQHt1CbZjsVR
Ci9voa11BBojnHHtjV/Su1HasoMdv172ftE6uD03JAcZP+jzvf6lrb8djZHO
vp3s741Qb0i6X6RLW+qMexhs/NcUKYjOxqin8yHGsZLfBV3seIcrif6CPV2N
j4d5HQ97N9S4bM66G3Oyw+y6DLPzlLbi3s1Y31z6srP0m/rj64LC7fiGqK5x
VXrHaORhXHfj+nIDFd1NHFAuqyKMrfqINJZqK5xNj2m+aExz9x7GEu1RO2gr
/j2N0T/u0aiHPO6DRCE1trexhHvmPVqyOXRilHE9KZSbzBOkt4o2Xq/DcaOS
rs67aqPt+PQ1Rv5OoWtLOZTQyJ+GMcaI9za6ka6W3VV09GTvP3/e5TBuIOXe
TBlb+0ajHxQp+/U2qp1s8GlaF+tk78axxkelHLJj7Xg0t+uNlupIu06jLlvF
GXtU6gSOo/tKecygUU5baOz3dRrtwbufsZVfdIgUTA6NfrGeRj/7kUb8Pfsb
H9Cnw/g4Wq+2qugV2lP2fweNeqigEdaQeONi3Zw7zqBxfBTSK6QfPqEvSTvu
MMC4veRPBo3yWkKj316jcb7FDjTupsvd6216sLT5A3SJNGTfBGO0n3TaqpcE
5/V8kOC8ngP0SGnvt2j0+5aDjFEPeTTO3c30Ft3dS87QF+5sjz/5lL6yIDx3
a3SiMfIzj767XQ4o2qpXeoa8kJTkvF9T6epztNpBsr6LtNzecr9kY5zPSTT6
61Qax/faZOf9O0lL+cY8THZer3+KMeoxiZbwTs5NcV7/StrqHynO6/dINcZc
FUWjXifQX8m4tJpGvR6jpb3cKaNxHtUe7Lz/wTTOtyy6rpyf+XSmDCzb6OmS
wKU0zr/aacaYVxrSGEv8aGl3PcNo1Kei0R9SaZw3E2jkw9w053gspjEPrKRR
H5voidIwDtI4Z8/QON6u0ujf5TTOD490537Ulr6lp7ncSNpq5zT65VAa89o4
GvNWDo1+MCfd7u+NrP5aQKPfLaUzZL9W09iP9a5tze808u8g/brsdwkt5VH3
Jo16vU1jnL1P4/yvpLF/XhnG2L9mrt1Kznt/GudzII3+Gklj/FM09juRRr2O
pKufG6qN+Wc0PUT+nUPjPMqnrfmV/k4GkhU06n8TjXzZQ2M8P0ojf4ppnG8l
NPpHKW2dv66NeaCcRn5V0cgvj0xj9EcvGvONP438CqIxXwTTeHyLdG3km4NG
P0ijG+v2tT2LXiQLGk6jX4ymq58L/6/R7yfR6LezaOR3Po15fD6NfC+gcT4u
p/G8+ZFr43mikMb5vpHG88tOGv1tD415cz9tPT+6Ns6vIzTqp9i1e8jAeoLG
4/QpGufPORr1donGc2jpixvP71dojGNlNOq1nC7Q40b+A/pXmT+e0KjfKtfG
fOQxxLm+PWn0/wZ0jtxwUxr134JG/fvT8vQwK5AOlueVIBrnSScaz0chrr1E
HvdCaczjETTO9yjX7q/b7y4HjefBeBrpm0ijH2XR1rxN/wc795hx
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{442.4999999999999, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511238452234375*^9, 3.511238462046875*^9}, 
   3.51123849490625*^9, 3.511238610234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"let", " ", "us", " ", "try", " ", "KNN"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "number", " ", "of", " ", "k", " ", "does", " ", "not", " ", "matter", " ",
     "here"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"pg", "=", 
    RowBox[{"KNN", "[", 
     RowBox[{"pdata", ",", "templ", ",", "tg", ",", 
      RowBox[{"K", "\[Rule]", "10"}]}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.511239222890625*^9, 3.511239247296875*^9}, {
   3.511239280984375*^9, 3.511239317109375*^9}, {3.511240786421875*^9, 
   3.5112407875625*^9}, {3.511240890046875*^9, 3.511240890875*^9}, 
   3.5112409384375*^9, 3.511241852859375*^9, {3.511241924953125*^9, 
   3.5112419258125*^9}, {3.511242160203125*^9, 3.51124218103125*^9}}],

Cell[BoxData["\<\"Warning: k is bigger than num of samples in a class\"\>"], \
"Print",
 CellChangeTimes->{3.51124111078125*^9, 3.511241854859375*^9, 
  3.5112419265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Diagonal", "[", " ", "pg", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Dimensions", "[", "pg", "]"}], ";"}], "\n", 
 RowBox[{"VF", "[", 
  RowBox[{"tg", ",", "pg"}], "]"}]}], "Input",
 CellChangeTimes->{{3.511239406875*^9, 3.51123943684375*^9}, {
  3.511241975265625*^9, 3.511241979390625*^9}, {3.511242729859375*^9, 
  3.511242731359375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", 
   ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
   "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", 
   ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", 
   "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
   ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
   "0", ",", "1", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.51123940790625*^9, 3.511239437578125*^9}, 
   3.51124069959375*^9, 3.511240798296875*^9, 3.5112409268125*^9, 
   3.511241858359375*^9, 3.51124192759375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"49", ",", "49"}], "}"}]], "Output",
 CellChangeTimes->{3.511239508078125*^9, 3.511240700703125*^9, 
  3.51124186178125*^9, 3.5112419285625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.024989587671803416`", ",", "0.012755102040816327`", ",", 
   "0.6122448979591837`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.511239347375*^9, 3.51124070325*^9, {3.511241864015625*^9, 
   3.511241866375*^9}, 3.511241929359375*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
maybe the average of one person\[CloseCurlyQuote]s data can make it better?? \
the mean erases the diff of classes
(No way...)\
\>", "Subsection",
 CellChangeTimes->{{3.511242738125*^9, 3.511242776015625*^9}, {
  3.511243416015625*^9, 3.511243453828125*^9}, {3.511243686734375*^9, 
  3.511243699296875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"mpd", "=", 
   RowBox[{
    RowBox[{"Total", "[", "pd", "]"}], "/", 
    RowBox[{"Length", "[", "pd", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "mpd", "]"}]}], "Input",
 CellChangeTimes->{{3.511242927625*^9, 3.511242961515625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.51124296234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ic", ",", "W", ",", "A"}], "}"}], "=", 
   RowBox[{"fastICA", "[", 
    RowBox[{"mpd", ",", 
     RowBox[{"retW", "\[Rule]", "True"}]}], 
    RowBox[{"(*", 
     RowBox[{",", 
      RowBox[{"noMean", "\[Rule]", "False"}]}], "*)"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.511243046453125*^9, 3.511243047578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"use deltaW:\"\>", "\[InvisibleSpace]", 
   FractionBox["1", "1000"], "\[InvisibleSpace]", "\<\", Maxstep:\"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm["use deltaW:", 
   Rational[1, 1000], ", Maxstep:", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304940625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dimension adjusted to \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" according to covariance matrix\"\>"}],
  SequenceForm["Dimension adjusted to ", 1, " according to covariance matrix"],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304940625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Sum of \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" removed eigenvalues(Choped) \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm["Sum of ", 1, " removed eigenvalues(Choped) ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304940625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "100.`", "\[InvisibleSpace]", "\<\"% of (non-zero) eigenvalues \
retained\"\>"}],
  SequenceForm[100., "% of (non-zero) eigenvalues retained"],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304940625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Smallest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "0.001839045391213533`"}],
  SequenceForm[
  "Smallest remaining (non-zero) eigenvalue ", 0.001839045391213533],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304940625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Largest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "0.001839045391213533`"}],
  SequenceForm[
  "Largest remaining (non-zero) eigenvalue ", 0.001839045391213533],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304940625*^9}],

Cell[BoxData["\<\"whiten OK\"\>"], "Print",
 CellChangeTimes->{3.511243049421875*^9}],

Cell[BoxData["\<\"guess OK\"\>"], "Print",
 CellChangeTimes->{3.511243049421875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total time:\"\>", "\[InvisibleSpace]", 
   "0.046875`6.122486274231748", "\[InvisibleSpace]", "\<\"seconds\"\>"}],
  SequenceForm["total time:", 0.046875`6.122486274231748, "seconds"],
  Editable->False]], "Print",
 CellChangeTimes->{3.51124304946875*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nic", "=", 
   RowBox[{"ic", "/", 
    SqrtBox[
     RowBox[{"Length", "[", 
      RowBox[{"ic", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nic", ".", 
  RowBox[{"nic", "\[Transpose]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"rowMean", "[", 
       RowBox[{"pd", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
      RowBox[{"nic", "\[Transpose]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "2", ",", 
       RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ncd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Normalize", "[", "#", "]"}], "&"}], ",", 
       RowBox[{
        RowBox[{"rowMean", "[", 
         RowBox[{"pd", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
        RowBox[{"ic", "\[Transpose]"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "2", ",", 
       RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.51124338778125*^9, 3.51124338896875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", "0.9963768115942029`", "}"}], "}"}]], "Output",
 CellChangeTimes->{3.511243393359375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"49", ",", "2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.511243393359375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"49", ",", "2", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.511243393375*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "ic", "]"}]], "Input",
 CellChangeTimes->{{3.5112433548125*^9, 3.5112433585625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.511243359140625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{"pd", "[", 
   RowBox[{"[", "5", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"mpd", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"mpd", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"ic", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.511243240703125*^9, 3.5112433324375*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw9lns41Gkbx2XLUitEUWmNoqIUSjZWviRyylkOMcOYwRgzo14dttoma6st
K+u1FKlR6CrEllLbYaetVycV9RbpNGoTW045hS1v77XPvf5x3b6+z+d3P/f9
3M9jGisNFKirqakZjFFT+//vv3+6naWnKs0jo+46sz9gX7pByUCFisWa+GJ3
QpFXx1sW68I3U39yjdEgiw2QYzF20fueThYbIfL1V7N0c9Twd2yMA+1zExce
6WY6B5KfPgoNR4dYPBN9a4wzLTV6WWyG8nvv+Add+lk8G9X5PZ5cSR+L50I8
apX0rRnFlji9c1jbXDbA4vn4Zc7ngwlb37F4AUp17tbhN9KtoT53hov4ag+L
bWB9deDQjFbi2cJWJzDE6WoXixdha+X10Qfp5F+MimJTib875WMHv3VywdJa
0pdgiY7prW9m0fr2aC14ejQjidb/Ck0PGt2rD71h8VJkyhYLNexpPx0Q87Nv
lFxB6zuizKpiqsM3pH+Nlmv6+TqXSHfCUDjn2pt5pC9DVMtiYeUm0p0RX6Bt
c1pGOiB43DV5TRbT5cAU3/aIg1zSXTB33cQTdt0sf7kL1CfuMfRJJd0VpRmp
ARvHkt8V087XeDcNkb4cZ26oQkvPkX85gj741p53Jd0NMtWx/TcNWL/I3dCi
+8F+h/F7pq+AzxnJpPUl5F+BzcvCAvd1k98dV3h6bVnN5HdH9644jVZH8nsg
zcQzXRJCugeshbP1+QLyr0RFkLxxYjV9/0qcnxq9YFIf9ZMnnGqzNQ2zPzLd
EwZp56bPz6b+9EKGq3NkZBTpXpjR5yV540v198abQ3+dPNvD+lvujZF6j3Gv
XpDug/QWp+FTc1ks90GuqETfVpO+3xeFyzu54nPse+S+GAqbn/Wff/JbBf1+
i2NLw9n3yFdhZtvAnNC3lJ8fclY4J9isI90PFp79i71syO+PPe9EfL8TTIc/
uFbBdrP4TJf7Y0K2XvGVUqYr/XGgYYvG+i3kD8CswoFnY+eQPwANm4YCNpWT
PwAGtx0thFPIH4Bylx++ts8hfyBWPg9KdtpN/kAYtB7PX/WC/IHo1g41OW5A
/kBEDpoWtB4mfxCGlJsW55qx840glORr6s0bT/4g/BZrF3o6k+nKIHj0uVUW
ccgfjNzG/7z0mUX+YIh+dT7wlzX5gzF/5gedzOfs/CqDccs793yWH/lDsM4v
aK0NnW+E4KDP5+8d1pM/BA9DwjpvL2L9pQyBYW/15IsvqT6hcOvLemu0l/Un
QuH86ka7TTLT5aEYf6HU4o5GB/OHYt2LBfpRe8m/Go03hS4tjWweYzXyS8O4
Pn9QvVdDujyg3W1HG/Ovxh6t8Lx+CfVvGLZ0vbzq0cHWQxhafqiztP6R5SP/
pBvedli6jc1vZRgKCga8ncNpnoWjpTlK2+UcWx/hcLWyP2/TTv0ajpRoxcp/
LWWxMhz5lUe/m+FB8y8CdfsHu8JO0v5H4MyYpycUd5kuj4BL9L3Xrzpo/yOw
tmpM+q4pdH4i8UX4co5mGu1/JE4dX/jgyyV0niKx9UZA88hs8kdCU+Wqc/y/
5F+Dom/NtkkKyb8GDlfjX8aryL8Gahzj3J2O5F+DO5mbb2hr0f5Hob4zN+Tu
Q1ZfRMF9oPbsb55UvyjoGs4bf8CS/FEY1fBvNttG/mhoNerYhISSPxpNVber
n1iTPxpZ4c6v9h0hfzQseBN0bHzJz4WV+v6rxpQfuCiPPiPa8zX5ucgJK9Bf
nE39x4XtJVUc90/Kn4dH9/n39jUxncOD609j8rT7mQ4eNlyzcDc4zeYvjwe9
nwtX5TjQ+jxcs55/d/Urpit4sHeelpJ6lPmVPFyYPbH+yht2v6l40H8qFQy8
JX4M/Era/ni0kPU/JwbLXnW4TLWlfozBQGqsze0fiR+DkmGLTI9sOl8xcL3u
Xbqgl/WXIgY/2RmNdhYTPwZTjLUU+iasf1UxaL8leKT1gvovFo97LzoN+31g
/FhknXvadz2Y+LFoPV0+qGhkPF4stPy/WzmcSfxYpNXWfG36lPEUsfgiL/ns
vzewea+Mxe69pj8IM5iuioW4dv1Nbh/NDz6yfHU1PxgwncMHv6otrNqN+cEH
18+LU3+GfS+Pj/miOalW5nSf8KFx/3XH4ximK/hY+bH4iake8fn4ztYt/YYZ
01V8uOWZqb+rIH4cOtdEcDKDmM6Jg/GdXaXt0cSPw3XthRW1esSPw5Mrgg1j
4yj/OCxaen+MqIbyj4NP25GxPmlMV8Yhtmjr7vHBxI/DZ9nFlcb/3B8CbIwp
Hiin884RoHq2R4CDIfEF2AJxPteR+AIsMDJfudaF8hfgV52Mw45dVH8BQsc/
LCyaTfkLoNgtMC8oY7pKgMz6ZZZ1ucQXYlV/8NgXE2n/hbjw/PXDM55MhxAl
X2o1+OwkvhDPZl1WHZETX4jXzdIY1zTKXwjT30fyop2IL8SpQJtpowrKX4h0
ZZP/Pa9hxo9HW+GvspnH6PzFQ1q7IixmMfHj0fCoa7Disz8ZPx7K7XV2b/Np
PsWjpbXhwR8f2HqKeBh9f338CNVLGY+0lKqAbrUx+JsfD8X5yQmXnej8JXx6
/4yze/70L8ZPwDBnn1FgNfV/Au71X7nQTvcxLwFar5+d86L3mTwBTb+77J68
nv2/IgHjTDfMPWlC9U9AVVNC6pPLlP8nf5RJ453rNL8SMZjlOvJqlOqfCNnG
6ZZveoifiOTfXW4drqf9T4Rd/IRb3/9M8ycRddMy3M4epP5PRGjVn4NpdkxX
JmJ9b+itjzuIn4g+cZaNdi3xRSgK8r/5/Efii+BwbbjYBMQXQc+nXmvVNtY/
PBF2DO3KiKshvggLX362pFaT+CLw8utsfWh9pQiiEE5JdS71nwhZaa9TL5UR
Pwkir7PfX37CdE4SZnyZUbOigvhJGNAT2mlsZ/c1LwkuZW3H9l8gfhKiluha
JY9S/yfhfp/V++hB4idB62bZ2sybxE+CaubJ0MN3iC9G6txbW9ceIr4YsXXN
wW6dxBdjs7eDk/UJyl8Myxoj9fQ+4othMO1Y+PZNxBdD5mafF8Sl+os/9eOT
tJwLxBfj8SQDk0llNH+TcVS0qiG+iOZ/MjbueTb10Ft6DyYjQuyU/a05609e
Mqwjwzb3g94HyRBOqdQ4Wj/C+MkIXlYjVZ9O8z8Zay9Fu/easO9VJaO3huvh
tIf6X4In5kazrgRQ/hKIXkjT+s/R/SdB76PTHwt20v5LYKQRMdaynM6fBGMC
nrp7+jFdIcHnPlXzDrwkvgT5zWeFlWFMV0lw0nNoSDiV9l+KR10TUrfzmM6R
4pKj5nN7up8hxdr9J3o2+hNfip0xi7SbGogvRe38A+ZBm9j7SSHFe351aeIW
qr8U13LuJ09NYu8D1Sf/1ohT95SUvwyj6s+zX1oxv64Md5df1Uo7RPNQhr29
48qtlzC/tQxdrYUHdRvY/kOGCRc7y9Qus/nlL0P6xbIEW7rPeDK8fRFoWPEN
88tkMHNwf+Q/QvWTQYPjoTCl93GWDJrbm1dHFNJ5kmGjo13H5qlMr5JBPFJs
ZNRD+yvDzpvmEzramV4vQ2LbQy/5arpvZejY6X76nZTxu2XYXrBDOhxC+adg
emab2a48puumoOirvB67Kso/BXd/uR7n08fWt07BgmjvKUu0qD4pyHFcP7Og
rtv5f4GKfhQ=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], PointBox[CompressedData["
1:eJw9lns81Okex8VWkpWNRBdNEonQdoZVyUcRlXJLxn3MxQzGGKuLrHOaiG6q
TUn3JnTZOCcppJKprWxKLiWVJXRFLrXVqnScc177fE//9Pr6/D7P+3me+Xyf
55kqiPcTa2poaBgO09D43/9//et3eb+w5Ybfk5su7A/A6Rn1xlqdrNbGTZmb
jtnul6zWBz6ut7Jv+cxqQ0xZ7vispe4Nq41xOKN6QTv3E6sn4fKoq9YHhvez
mgOtzMxtx4Pes9oMPtsPL9r57i2rzXHfwC1gje47VlvgO/ln8b5U+n4G3nhX
f240ofFmYsqWkLnaFz6w2gZZWbG/LqvpYbUtNLt2Bvf9Rro9ts4ddzGxjeY7
G2Uxy3vslpL+PUzveDZm+naxeg6aZ30JzGki/W9wzU7c0SfuZjUXOMi5P8Ps
I6sdoNes+yh5E43viC05s2ab7qD5/4Cq4CsDLeGvWO2EukHzOdOe0/hzEaKH
uOA1NP483Ffu3Ne2kMafj3PcoZqTI2h9zjDvmbtDO4D0BXimE7hxmTvxXfDg
yHEDrRTSget7kgPr45muBEr//u0ekcWfTHdFleU3rqPmMb7SFdfmJObwX5F/
IeLqX2UIzMm/EFztjldGx0lfBHXUn49rzdn+KRdBb55pTUcr6W44ME61bU8r
je+G7U9W9oisiO+OjBTJsKx20t1R3nfijI8p6YuhmhajYVtO/MW4bt8qulhM
ugc07pYPpb8mvwfszI0EEnUf0z1Rsfxmm1cO+17pifTbhq/7x5O+BHdThFr5
0weZvgRd2x1LfJSUz6XgWvWN4B7/g+lL4RU/snVsD+V1GYpeGkQkr2bjKZdh
0czGF9a/s+81vKDxwsJztCXN3wsFPWdfFBVSPpaDM5jp2NT2munLMbwwbV7f
BMrHCkzycONauZG+Aoeb8uXtNeT3htqh5+mzcaR7o7ZI1BJgRn4fNDRt+Jwm
Zjp8MK2ruvCwG9OVPpjA0b8gFbF8qn3QGVz9LCiQ/L7Q6vy9YMx58vuiRjM5
uOgy+X1hHW5+OjyX/L4YbOZsyvx/f/lhg1JvV6cz0+EHm4vpi4YOkd8PpbkR
48UvyO8HyYepHb7N5PfH98V+4/MmkN8fxZNvHMjXYvlS+iNoln/fzg/svFL7
49pb25OHTSh/KxG2ZPrlzA6mYyV6Cv6YnSQl/0o8Oi9cUVX3gvlXQlJ7b3Ff
AfED0BCdb7Gsl+kIwDAtbk+CD/kD8MS77JhIRvMPQOfLg+HjPYm/CvMr2ify
Goi/CneTwrXd55N/FS5lZXhqttD8VyH9waEY3XHkD8TeD7sv55nQ/gditaGx
qYuMnYfKQJh57pj+sYjlTR2IM7YVOca2dF7y0OjlLgq7zc5n8CDIemOnE9LL
/DyENaeHJfPY+a7mIe9SWl7oHOqPIJRf35XtbkTrD0Jq2nRxXhfLvzIIUR9q
RqnsGE8dhLWPzk/GPsp/MFoXN/tWu7L8IxjchKHjll3UT8F4HPnVZuQR1r/q
YGx1NlOmlJM/BFv3vVufOZHpCMG2pPpWby7LvzIED0+Zu1Xokj8EP82a++nk
deqPUOh3Dqut2kX+UAxYbPfGVfKHYm+A6ZVcL3Z+qUMx9aljdd4T8oeha8Cr
8Fol0xEG92UzhxTUf8owPO+9JZmzgfxh2LWkYf0XQ8pPOMYG3l77SUH+cJxd
G1RqpEH5D0fhkciffWTkD4fB8O3Gi+PJH4F3XjZ7dzrQ/CPA3VYcMRhO/ggM
BU1Likxk97c6Anf4jg0nosnPx8d4nc6bXDY+hw8ts7T1rQNs/uDDqem12onH
dD4fx0OtK8IVND4fA4F3y7JVTFfxsWXqgd3HHJmu5sNgUlDI6RLGb+OjqWTb
07KFxI/Ev0vsznVsJH4kSlu/0ZLWEj8SV7wjdUJsiR+JG87zs8qqif/f7yN3
96f8wPpBFYnVd8QJNvbMr47EqaVKk+XSIcaPRP8tV4cZR4kvQFm6/Uir3wYY
XwAp9+waM1M2HgSwuLQuKlWT1XwBErIfxRleov4UoMOpcF6bLuOpBHCHbcXb
MHafqAXgXp+ifWAzy2ubACU9DhuTBql/hRgtd4i1Ps90jhB74tIOKXqJL8Rc
y2dmW+YynS9E+9nFz2V9xBdizOCg56sJTFcJoRWU6pZpTXwhYlVJVdHRxBcC
6tQpnx4QX4Qun3tHdM6wfuWIMMbmwg0/IfNDBJX2umudaqbzReAPawjW/Jbu
SxFGKawnfilgukoEgfG5sm5z4osw/0i1WZOQ6W0ipJ+3mFo0m+5nMQrWrys8
eI/4Yhwy7/UXTCO+GPsjbo5/4EN8MWr5kS7dd2n9YiRovzeyW0x8MbI7RBVl
b5muFkN786cNP6rYfd0mhuaN/bGnjtH6o8Brr50wvZOdT5wopPz6U8pFf+JH
4dLPtQ0bU4gfhcej6n7MPU3rj0JzY1baxRHEj0LDtqtFL0/R+qNQ1WZm8nE8
rT8KBQ/X9exeTeuXoGVBXUxDK+VfgqajwUYdT1g+IcHuNrfBtmh2PvIlmJ1f
Iol9QuejBJZ63b8sGfmF8SVIlGRkrsum816CiYrQjKNm7P3SJkG0w9um3LGU
fym+aIX4PzCi/EuRf/Jezv3PxJci1PjCzBNyVvOlMP96LcOpnfpPiiHnhO+E
KZR/Kb6pf3+3PpP2Xwqj8zGPF72h/Ekx7he7ZLGM9j8aDlmuJqevUf6jUSZw
btxUQvmPBremzNDGi/IfjfR59RbJavr9o7HCMf+f9gaU/2g0eMxWV+YQPxpK
K+mJRH3iRyPEufXU1/3Ej8EtS9N/p7oSPwYZvQMn68qJHwPNf4xQ5lO++TF4
af/e/OgL4sfgnYbic2Uz/f4x6Apy5vRnEz8Gay8/5d0+Rr9/DAo9vpbW3CJ+
LAqVjuU2xyn/sThyaam88jrxY/ExabTNMwnxY9Hdwtt8OI74sXC2drWRryN+
LE7eTxit4UL8WFy5ZOAvLCd+LBwc9fevSSO+DGJuYfeE26w/ODI4ea0oHXeC
+DLcCVioGbCH+DJwJs8fvbeQ+DI0Px5putCJ+DLk9OvX+ewjvgxTk9687tGk
/Zfhoqd5cF0VvZ/jMHbpzDWFm9n9xYnDmfZcfde1rB8Rh/TsqzLhbpZvfhym
dFT1Sk8xvzIOvEqHzlnUb6o4VK/4lsPLovzHQZS7enPSe1p/HD7Z339gOEjv
Bzm+bMppFetR/8tR3p2eq7Kl+0eOBYmudf167D3ElyPohkdInoTudzkqxcUe
fA32HlLJseXLzHNjXej+keOX1Vbed8qZv02O4m0Xbj3OJX48POUaN3Ue0vrj
sXKnNrfyX0xHPP5M9ihWX6P7Lx7Di4x/G1VB/R+Plox7pbrb2f2qiofe21TD
EnofqePxUPh69fMLdP/Go0vVX5s+kt4vCqTrpizwP8Dep/oKbEnYOhnUbxwF
Zn16cqF9D3tf2itgmac2+eEs208o8N7RTZ19jI3vo8DAvp60XXSe8xUoflPw
Y1Uje78qFNi8dtK9fV/pfahAoPC6iUse4/+sgFF3TaP5TsqTArp7vwvaYMH0
IgU2NLgkW1cyXa3AmAnyUboGz/+q6xQoVYS5/zGM8qbAh7QzUekHGb9fge1n
dNrn29P+J8DOfcp049NsffoJSJP7rbtJ+eEk4PFR3kir35+x9SdA6DvAk9F9
iwR485y023NeufwHG6OI4Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511243236375*^9, 3.511243332796875*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3lczPkfx8cKlatWuX6opNzRRY7qlcqR1DSjU8dM01QzXRMKS5k2sbUt
YbUrS4OyyaaL7SCG8iO6ELp0IFuOlHVuqd/+Ht6f/unx7vV9vZ/vz/X+fNLz
j+CJv+FwOFrDOJz///7602vtXaS6JNq04Cr9ASov6zdMH3fO+muoikxbq/mn
lnMp1oDm7he8s6dzKNbCicKjhwzM0ymeDNt3uS+vTS+geBpu7j8f69SfT7Eu
foixK1OvK6Z4JsTtlwqjUi5QPAt7Jgok5V6lFBtiiQkvsDuO6XOgfW6Mvpx/
meJ5+NUoz4lf9CfFCzBry+0MV+Myio0wWzh9/mAO0xeD9ym41b6N6cZwdDHu
yx3H6jFB8viBzIqkKxSbYlHHpDkPXYsoNsP9wojBjlnMb47dEeJbmy8yfQls
y27mH7Zg9S3FwDzjMw4GbDwWyFa7FbPfnvmXwVfT/JfQ6Yy/HJKNzod+rmbf
r0DP43w9r+Ms/0qYZH4RjnJhuiW4I6uMYjuYboXkllHX3d+w2Brm/Yv/GZSx
/IDtJv7e41YUy4HUHrWxnZOZboMm8+DU2D1Mt4G6X3tueSvLtwo3ZPv+HrpO
8ylfhaJyFY2600y3hevtms4YH6bbwub40Wnn29n826HdqsFJReci6XYI3756
U6MJ89ujT5ni92w4rbfcHj199wT2aUxfjeCrM/1eDeSRvhr3ZuYvlMew/Gtg
636phq9H+0++BmFvc1+sSWbjW4vFOWMeHqk4+HW/y9diczHPoNKM6uGsQ+T0
rMH+n86Sfx36bzf3uRex/eeA4UYtvfwF2aQ7IGFiQYn0JtPX49a4uNXDRrL6
1kN/wCY6X8p0RzR1Dh6OF50n3RF9N2+lFrSx87EB0SVzQ34dwca/AXYeTWVJ
7pSP44SwZjO9MWeZ7gQbw2EdroOUj+OM4d12nIYDTHdGZpj+W8FZdl65SPq2
syhOlcYLLkxas4YpHP6g77not6l5syOS/Eou0j0dzbpqSOe4QKOjyjNGWEh+
F0x8WvG8J5n6hdwF8YJ/TLuzaf6VLrBdVW6+spv1Ex7EblNU51kzPw/ay+3y
GnKZn4ero89oRegxPg8r3LbdsR/L/HyEjK631OaSDj4uf+rVXvodWw8+Jqtk
DZufTvmVfPxygWfC30I6ZyMmHZ2REBZD9WEjip1eRy+LY/6N4O4Txx5V0noo
N0LtVKnfsQHaDxxXmNdsD3p9m3S4IuCLXl0sl/ldod6cG12kxsbvCg9Nvt7O
Cczvhtr8ybv7y5jfDS1RVfX7d/5OfjccX+PkEXqN+d0wKSzOr/ddFvndcXeZ
xPdcEvO742q0V8Wnybnkd4fge4uMoV1RX/e30h1birTGaP3M5s8D3L/d6zwn
HiW/B/aXzfbtmcvm3wPCZ1c8Nt+kepUeqNrwuup+QA7dD55466D35LWq8msM
T+wyOCjXr2V+T+QoKq4k5pwhvyfyDEXNHhqM74WdsoUVQ5o0X/DCwnPvQ2Nf
s/F7IftEw6Rdl+l7pRcifZJuTNalfJxNGMFNuep8nfYz/o2tVNUSpBnk34TE
PSIvv3rar8pNeGZo1TJTm/JzvJG9uUBW18fmzxvV7xUu6w9Qfrk3RGLhH+YZ
dN6U3uj6KX+J/VzG98GDp+knHmmRDh+clpp2bTNgfB80J+rE1NbS+JQ+UE9p
fRX4PJP8vuj1+nD5gSnVB1/oxFyvbBrD/L6YJeUF8UQ0PqUvrhw7+N8LqqRz
/NDW9uRH+W067/BDj1nNmU03mN8PFz80NQmFbPx+SHukUT7j2mnyC6BS9psg
bQmtr64A66wal5RUnaJ8AgjVeg7P3kp+gQB+cd3dZnWkywVQbxxZVZpB66MQ
gPv+wLJvVpOuFCDaIvDe72No/O0CfDfVMOr+UsYXQph8UPRmPem6Qsx2m7ci
O4LqhxD61Xc/O+tTfoEQK3Qupq44wPaXEBXG/upPXBOIL4Rm6hXLvgw2X0KM
h3NSwz+biS/EwN0Lz7OMWP/zx8kAde7Jhn3E90f89mPb/5xJ+eEPe8d5U56o
phHfH6PWmpl4LWD3wb+x23GvGh2qV+GPt10NA/UH6Xwq/TEjq077+VPab+3+
WPj5uc21qWz/i3ByhdOd7AH6XleEWTYetS0r2XkQoa1k/AF1R/ILRGiR1hbe
qWN8EUZNalV+SCBdIUL7jmmrjtQzvgh/+S6yVL9P+61dBH5znFVoJesfARhe
qWXYeJ503QDkjSjVXvcP6QjACdvG9u/FtN8FAbgclfwnL5adzwA8mmDBK5xO
uiIA8+LLBzrLGD8Ad20PacYXMn4Ast0emVU3svMnhkN+7qkJRTR/umIUnrob
lVVEOsT41GBvP9jG+GJcSm9esEZK+eViFMw4OX5qHuVXiPH2mnCf3kzyK8Vo
SaudbjHE+GIMlR2a8m4JO7+BuD16Q8WraDb/gXBKtizUbqTvEYhLOXPe1beQ
LghEUuX8eLkR2/+BcNh/OLey+jfiB+LJOZtYj8iTxA+Eq8njBPOTJ4gfCMvc
H9sRQzonCJ/6Bh11ium9ohsEC8eFdvovfyV+EBrTSofvzfue+EG4kSxKGJVL
fnkQrD9eK+U+SCF+EIy6e3dlZqcSPwgZ32ZOnNT+M/GDoIz03hLYQTonGF2P
z9etT9lN/GBY24StdFx/jPjBeCSJNWx23kX8YBTHj3YYf4rqkwfD8wc7z8rs
OOIHY+hUz9Y1b4inDMazvUY/OhTsIX4wHnDndl1vOEx8Ce52R+8tdiddVwJB
zrsfGoqOEF+CgtT0a48Pky6QIHtw09yE0F+IL0FOim/N83OML0HT/OqBxHzy
KyXQHCmerVafRHwJuu3Ujxy5w8YvhXWjx1+S63uJL4VviIe1mSHjS2Eg+ak2
WzuK+FLUuHa/X25N9culWHhPUS5bT+ujkOKk3rcRCh3Gl6LzZdDkIzFy4kuR
vsfm/hcbqp8Tgva3qaVWih3ED4GO6Eu+ZSjjh6BeNTfw4me2/iGIiVdqc50Z
PwQN3+VIOfW0PooQnFHp6nTtJF0ZAts7G+cvnxRN/BBs06iMsxl3gPihiOsY
vyKjjfLrhmJ3i/t/0obIj1D0t23BzX2JxA9F/B4j1ZJCWl95KOYsH1yk0U66
IhTb9mibjhUeIn4oxu6d6FdyjEf8UPRN7au5qsv6bxgCsuf5VKvQ/OiGwXdq
0b4L2ew+D4N4/0DPlJes/4VhUXHqtIOa7D0bhg8+63Sxk+4nRRh+Ly5p3fmR
vffC8Kh3pWreQzrv7WFQLf9iqe5MOiccC4vrniaupfOkG45hUUcr09l7D+GI
15BOsTvB+k84+rWL++yH2Hs+HBMmqPxh10n9QRGOXN+5PS8k7L0YjmjTngxD
AfXr9nBI/+bFGLey930EMs9u2NrGZ/dvBG7wPbzDv2H8CMgTNS9NXcf6TwTi
+RrOq90YPwLHplTMav1M9Ssi8NDn3MelKvQeUEZAP9LRc+tH6lftEWhynrNU
X439/yDD88jmjPcjSNeQQb45ssWniNUjQ6lPUqDBBOrPi2UY2L13jNcQu59l
qD620ysnifoFV4ZVPcPfj3MlXSDDi/tvnlyNVnyNZTIkfzFddDqZ7n+5DFln
Z9j7JtL9miKDDdfAxeAVfa+QwbhYMmrmDuqfeTLEGUl0z5wnv1KGkodp3ltv
Uv11MtzvaU4t+o2NV4ZYhZZ2+X+on/fK0DE2sTbOm72/IhFU7sPPqqb11YiE
i7nFePdkinUjcWPokmvXX9TfF0dCz/jjOpsLbPyRqIrLfL3obZr1/wAGhUgA

    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511243236375*^9, 3.5112433328125*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3lczGsbxgchWcpRthOmOlmTpSJRrqGE0jKjfZuppmWaakLhUCbEW7If
oSyDkDqphEmUoc7biVQIUTJxdBRFHdsh9Xo/7qd/+txdv+v+3s92P08GgdF8
cV8Oh6Pbh8P5/+8fP+8WCpWac+LMLiykP8D9dd2KccNyrv8INdHpYDPtpJUL
xToYu6mNf+5ULsW6KCg8vM/Y4jjFoyF+n/f6xrgLFOujbdf5BKevBRRzcSre
tkSrtohiQySorxbG7rlI8S9IHikML/Mupngi9GfzQ1oTmT4ZJjlDjOSCaxRP
hdI030mgvEyxCbRW38p0m1VCsSnMROOm9eQyfSaEn8Oa7J4xfRZiXWd15g1j
9cxGhnb36fKUUorNMLt51OSHbkqKzXG/MLqn+Rfmt8C5aPGfqy4xfQ6mlFQU
7Ldk9c2F0bRZZ5Ybs/FY4tqgP+N32TH/PIwfbnFQOo7xrSBe6bzvtzvs+/n4
42mBgfdRln8B9E9/Ew10Zbo1VgyoMk1oZroNpI0Db3q8ZfFCTP8680uPjOUH
lvkIth21oVgOdHQMGvpyNNN5aLIIS0vYynQePvir88qaWL5FKJdt/6f3Js2n
fBHqyzR0ak8xfTGkt6pfxvsxfTEsjh7WP69m828LtU29k8aES6TbInjdEp/H
s5nfDr2qPQF/9aP1ltuB03VPaJfO9CVYe90w4E13PulL8NGwYLo8nuW3xyKP
q9UCA9p/cntYdeW12aey8S1FY+6QhwfK9/7Y7/KlsCjiG1eaUz2cZUgal9Xz
dec58i+D9u2GTg8l23/LoZze+E5gkk36cuweeeGKpILpDigclrikzwBWnwMa
v/LiCiRMdwSvpWf/lqDzpDuiq+LPtAvP2PlYgfVXpkQc6s/GvwLRnk9KUjwo
H8cJGxvMDYacY7oT2oz7NLv1UD6OMya32nLqdzPdGRmRRl3Cc+y8uiDpp5fK
RE0aL1xQ/zSrj2L57/S9C3p41W/Xx5Bf5YLxXo7mr6pJ57jCpLnKK15USH5X
tD0vb+lIpX4hd8VB4Rez1myaf5UrCnllFgtaWT/hY7/7GM2pC5mfD0sr2/z6
PObno2zwGd1oA8bnQ8t97W27ocwvQMjgOms9F9IhwNnP7/Tm/srWQ4BJGll9
ph2n/CoBQi/yZwtWk85ZiVGHxydFxlN9WIn7Tu1x8xKZfyX8t4sTDqtoPVQr
YXqyOCCjm/YDxw2jq9eFtt8iHW5w+mZQm+DC/G74+iQvTjmIjd8NxsMFBhtG
ML87bhWM3vS1hPndcS62qm7XhrPkd0eOvZOn9AbzuyNVmhjw7n0W+T2QPy/c
PyeF+T0wM867/PPoPPJ7IG6zZWbvxtgf+1vlgWtK3SG6v7H580Rml0et18jD
5PdE/9JJ/h1T2Px7gvdXqeeqCqpX5Ym2Fe1V94Nz6X7wQstyg+ftmqofMbzw
yniv3KiG+b3wQFFempx7hvxeWDApqMFTh/G9ESWbXt47nOYL3uDlfJAmtLPx
e6PiWP2ojdfoe5U3Vvul/DGaS/k4Pqh03nPd+SbtZ/jghbXmoCRJJvl9wN8a
5B1QR/tV5YM3E20aDfUoP8cXNasuyGo72fz54s0HhavDbsov94WTWPS7RSad
N5Uv7u4smGM3hfH9oH5x/NgjXdLhBweJ2au1xozvh9LkCfE1NTQ+lR9i9zS9
CWk5TX5/fPL+eO2BGdUHf7RsvFn5ZAjz+2OuhB/KD6LxqfyRlLH3vxc1SecE
oJ/6+Q75LTrvCICvRfUZnz+YPwC3Pj55IhKx8Qcg+pFO2fgbp8gvhFPJEWH6
HFpfrhDzbB7PuVJ1kvIJ4TOoY/+kNeQXCqGd2NpqXku6XAh1/YCq4kxaH4UQ
Lh92z+u7hHSVEOmWIffODqHxq4VwHDsx9v5cxhchKnVv0FsH0rki9LpNnZ8d
TfVDhKV37v7rbET5hSJ8vyvS5u9m+0uEDPNAreduScQXwTet1Lozk82XCBWL
nVPqv6wivgha9y62ZJmy/heITWItlxP124kfiIB1GesuG1J+BKLKYeqY55rp
xA9Et735bG8Tdh8Eoq/7Ue/qCVSvIhCC1vruur10PlWBsMqq1Wt5QftNHYje
zy28G2PZ/g+C63yn29nd9D03CFKeZ03jAnYegnD2ivZuLUfyC4PgJKkpvF3L
+EHQHtWk+phEuiII09frLzpQx/hB4AXMsNa6T/tNHQT9hkQbaSXrH8HgVepO
fHyedG4w+gwo1lv2hXQEY+fix+rNYtrvwmC0x6Ze5iew8xmMmBGW/MJxpCuC
cWBLWffLEsYPRtbifcO3FDJ+MC67PzK/85idPzH6FOSdHKGk+eOKcenk3dgs
JekQw+yxnV3PM8YXY/XxBhN7CeWXi5E9/oT22HzKrxBD46Zou4Eh+VVivEqv
GWfZy/hilJXsG/N+Dju/ISgdvKL8TRyb/xDMSbUu1HtM3yMEXbmT39c1ki4M
QWXltC1yU7b/QxC3a39e5Z0jxA/BjhxegmfMCeKH4ODsp0kWJ44RPwR383ao
EU86JxQfO3scJxTRe4UbilrH6bZGrw8RPxRhR4r7bcvfTPxQFKUGJQ3MI788
FNM/3Sh2ebCH+KHY0vpu4+nsNOJ/z//T6ZGj1L8RPxQWMb6rQ5pJ54TB7en5
Woc9m4gfhqhFkQscHTKIHwZPScLEBueNxA9D8dbBy7VPUn3yMFgk23pVZicS
Pww41bHG/i3xVGE4nmS6Y/mFrcQPwyrnKa9u1u8nfjjQFretyIN0bjiOnH//
n3rlAeKHI+Pg8RtP95MuDMfiHp8pSdKDxA/Hpb3+1S05jB+OsyZ3upMLyK8K
R4OGeNKguhTih8PKVuvAgdts/BJYPvH8O/zmNuJLYCD1XGg+kfElkIftrMnW
iyW+BAVurR+sFlL9cgn49xRlMgdaH4UEvYY/RSsmML4Eotehow/Ey4kvwaOt
vPvfeFQ/JwKVXWnFNor1xI/AyKBvBdZSxo/ACM28kEv/svWPgN1mlZ6LM+NH
oH1DroRTR+ujiIBf/1cv3V6SrorArqqV06xGxRE/Ar9qVybyhu0mvhTCZu35
mc8oP1cKo6ceP6f3kh9SHHq2GhXbk4kvhdlWU80rhbS+cinE83pm6KhJV0jx
ZKue2VDRPuJLsXbTyIArGXziS2E7trP6Opf130g0ZE/1u6NB88ONhP5Y5faL
2ew+j4TJru6OMa9Z/4vE4qI0/b3D2Xs2EvV+y7jYQPeTIhJxRVeaNnxi771I
FL1boJn/kM67OhKWZd+stZxJ50RhYVHti+SldJ64Uehec7jyOHvvIQr2OpIx
tsdY/4lCq15Rp10ve89HwX+Exu+2L6k/KKLw2X9KR1s4ey9G4ZRZR+ZEIfVr
dRT+6eLHz2pi7/toxJ1bseaZgN2/0XASePpG9WX8aKxNHn517DLWf75/L9Bx
XuLO+NGYO6b8l6Z/qX5FNC775Xyaq0HvAVU0dGIcvdZ8on6ljsYn58lzjQax
/x9keBDTkPmhP+k6Mvy8OqbRT8nqkSHYLyXEeAT155kyrNu0bYh3L7ufZViV
scE7N4X6hYsMRzr6fRjmRrpQhrz7b59fj1P8iGUydHebzTiVSve/XIZZ2ePt
/JPpft0jw1VnY1fjN/S9QoZmZfhAw/XUP/NlWGAazj1znvwqGY49TPddU0H1
18pwqKMhTXmEjVeGUoWuXtnP1M/fyXB3aHJNoi97f8UgpsxPkHWH1lcnBiMt
LLU9UinmxmA+55rbq7+pv8+Mgf2sT8t4F9n4Y/Aw8XT7jK706/8Dx3nKWA==

    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511243236375*^9, 3.51124333284375*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw9l3k81dkbx69Q2YooKk03JRnNHUuRVD6plEj2fbm4dpeLoV9qmhtp2lUk
SwtSoowaqbToWkshpZIhXaFomUgbLX79Xvf5/vzj9ficz3mf55znPN9jln+U
Q+AYFoulJsVi/e+35GfA/I5MyZKTNyeC/oBKP21NL+71G5JwPGT2P7vUlTxs
LomVsdo3cXjG6D3S1ZC+z3f33H+7SdfAjNt/G/DSn5OuiW3mBTe545mYDUP5
VPutGsMUa4G3TFetx2WA4jmIUbHIVrb8SvFclKkkv36xiNHnwcalkaevxxJJ
4p+RW/V2++q696TPR5Jh8q2GiVKkc7DxyXFLhVJG14e1zAx7pWpGN8A/b8ND
v+z8RLohjnxZbVMfO4Z0I0TWRO/6qviR9AXQv3pZ9GkM418IXsbuNUr3Gd0Y
k/gWvOiJzPpMkLff8tI/rV9IX4QDGytunpjD+E3xWSre2PM0w1+M+x0xdy8a
fqPYDE2aRyYH5DDzL4HJ/e9WLENmf5bipXf/9wfzGf8yPOKfreNaMbE5/O3q
dbKdPlMM9Ar+NKt5TboQqE+OtZI9zoxfjnYlF887m2m8cDmMbpU5LtRhdAt8
WdwY5tpJ+ym0wDb2o9HSYmZ9K1D3RZgxU4nRV6C1qHk4afoH0lfiyHMn5Uub
B0lfiXeiKeef1jD6KhTA7E/nsH9JX4VD2dX+clnM/JaIF+ntqHrbRbollL8u
uqexnjnf1Sh8mRo2/STVm3A1xnhrNLXuYfJfg4n9ayvKM6Ug0dfAxHS32aFC
Wg/LCnNVNmar7jpIfivY9wVWji9g6m8t7EZ+47QUFZO+FrM3xZfr3mJ0a5xy
X/ag5VU76da48rqwS1GO0W0gEnnkfJ78kHQbHEkal3AgvZf0dfhWavrdI5rJ
fx32aci9UdzTSbotmvUHkw7spPmEtlAQ9cv9ktZK+no890mXP+7M6Ouhz1to
VzLlPul2SE02abC3pXxhh+PxQs6xrls03g4dbfw349TJL7JD4rLyUaM5jeS3
R17oO9Wuhlfkt0e8qrZFeW0V+e2x6aeFH9HRR357bDA6lP13RS35HaD6dYu0
vznjd8BYm99epPRWk98Bm4uWCTV7KH+RAx62HD6e4MD0I0e05CnHhOS/Jb8j
/vpW+b64rZT8jnixQKwz685r8jti/e9zU1RCSGc5YVNTc1A1m9YHJ+Tz+erL
110gvxN4241XcafQeYicECmdyJ2WXEB+Z6g5Vnx7B9LhDP1DZ3+t1T1Pfmds
F41E3VxB9SdyRvCJfD9bhV3UH11QrdMQkq7A+F3QKt6ndPDP6xJd6IKPsaa1
Sqb95HfB4g02+yb0pJHfFcfs8v9WXtRDfldsNotqHZZ6THxXKJTZ1q1v/ioZ
L3JFrdOauFwW7S/LDUvNzfPvLnkp0eGGqfEzHsrq3SC/G7hyVzOlzuYQ3w07
n3ULDPQUIfG7o8275yDk1CUx3HE2ZqzJnhc15HeHu/EUb+ugWuK7Q2Hmbsf5
ycz5ecCYu2nXfssiWr8Hmj3iyl/oX6T8PXDPmd9euY7mE3ngaaO6gPe+nvL3
REWK3ub436me4YmC0oqSYdkH5PfEWlcbrRX2VK8iTxy7U3pPX7mK/F44P0Fw
1LyL2X8vVKSe/5LnW0d+L8xmde5RThST3wuTA8PeV51m+N7I/fpcPDeog/ze
YPdstTmm9ZD83rDljX6Q9y4nvzfy5o19pth8h/w+uN6ToHdFm+4bfFCUuqJS
bQfj90GH6WB674dm8vugdNrGNE4m6SxfqGbJmyVWPCK/LyI3mx1ITrlPfl9Y
pV+qW3K0nvy+GH/4wlhL0SPyc+HfPxzJrY+SxGwuJmeW7i8v+YfqgYsnnGtK
UotuS/xcLlr1Wxq9c0kXcrHTYAb6d1I95XAxPS+4QqG9g86bi+g2fwX39EKJ
Lubic5CFzuKPj4nvh0V55+tSO89JdLYfDKq/DFYPtBDfD+mqpl7d1yuI74dq
p5c5fz1m+osflrOPNGzZ814yPscPI+l9FwNlqB5EfpC6UMipzfwk0cV++M7p
nN+sSfvJ8sck91Hb58+HKH9//Ce3EqwLxIM/8ueczOy06JfoXH9ctzAMkItL
oPz90crZm//BlM4jxx/Fna1zXYwLKH9/RLnINs24S/Us9kdCyVHlen2anxWA
VOkDCa7PDxI/AAYLJ33QaCghfgDWcW3Vd1iLiP9j/OIrxXbiXMo/AMKJG42+
tV8jfgBeXlxYprH4KPEDkHVnqKo4qoH4AViirV09WSmH9p+HVrWO+xOyGonP
w/qIkqGIpFTafx5MVfYWal6+SXwebpkZDgy7M/2Jh6YNSz9pj79NfB5kZaar
a+3MJT4PnHEozo6l+cU8ZBd0OWbHXSJ+INQH9QJ4t6le2YFwtJ1dcPh0OfED
oWNZwHeoqyZ+INwyQ99esT1L/ECMhB7UKE+h+XMC8QvHIXbCyUriB+LG1Kyi
GGm6b+JADOePvzlkwtzfIJj2p7HOFBcRPwj6spu7WpfSfiEINdXyfyhMyyZ+
ED6NWzs4aPaE+EGYZF32xjbkOfGDcLL5UEHrbDHxg5B6+kBK9vYe4gfhUE9o
no0C6axgqMWuHHl1k94r7GCofts7xy2U6cfBWH3u1NwxZh+IHwyOknFqqNVT
4gfDhbODZeQ7SPxgqIcNxMRcfU38H37Pk4rSaf8SPxjttiOWskmks0IQa35t
T/0Izc8OgZNP3XDWxxfED4HM4cshskEfiR+C1WoDeQUXaH3CEPzkJTMhegv5
c0JQ1tvW47mNeKIQhDj8Jzn/It1PcQh663Rz/U+8JX4oTqz5Pm2kkXR2KM4c
vba8qOwN8UNRkjd/waYK0rmh4O53TTk19Ir4oTi0PSdR5//8UIhXFrN/vkZ+
USjYO/tqTLTofotD4bklqUqYyeQfhsYbZj+lcRh+GK5O0tpXaU3rRxjSfUPm
eTlR/+CGYeqs7PxG9gDxw3B3eZOGkjPDD4PGQG/TDgcm/zDMjJoqq9BAujgM
Ub0OfyTMZPjhKHg6pJNZQfvLDofJjge+adIMPxwvhRYmOvOY8w9HqGuEwTYN
hh+ODOOQA6NO5M8JR5vbExt+Ou2vKByF+3piOUZM/wtHsO7DmkCFd8SPgHzW
qo2dHOb8IyCwaTvjuYn8iMDJOueOexto/7gR+ORgP+VaJa1PGIG6KXIyqn6k
50TgZ2NNO6tUWp8oAr5J8VorY+j/RXEECgNSrQfr7lL/46NlR7eG7iuGz0eR
dKq2jibzPedDMXj5iIcb9U8uH80utisu5DHvYT58xSqBW2Po+5TDR3d4vcev
Jsx7kQ97lY5d8qo1xP8x/sSz31uE9N5kReLJkUytoQ10H9mROCPqM05g3nuI
hJy08bgFPfR+4Ubia90i55hh5v+NSFgcuTJw7E0G5R8Jbi87YML5buJHospV
MS7xdQJ9/yLxsc5G1mc/876PwvytSzkZuyLo/kfBu1ShPn7sM+JHYYv9wkzP
teeIH4VT11PmZ22l978wCpXvvIb61TqJH4V56yKnae9tIX4UdquNsU4bbaP8
o8Bn97sUyNJ7hSVA42h3iUo39TNlAbzXLKuINTpK6xHAsERji3Ykfd/0BWh/
7VUfl3OP6kOATTFSBmvLqF/YCRB5Odkr2ofeX1wBVv0VnOg275kkFgjgnjFz
1rGMVqofAc6kyGXEVfRJ4v0CnFIwjPAz7qJ8BLhcU7uxr4T65zkBFiTKB4Yp
kl8kwNI3Cxqja+k90vxjfJ99y9G4dspXAN1Uwz43PVrvgABD75uyfmM3U/1H
g9/0Rvd3b6oP5WiMVQ589m0Dvf/Y0XhselGKt476u340zCO65cc+ou8VonGu
wvJXgUOf+X8BSdaN5Q==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511243236375*^9, 3.511243332859375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"sj1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"J1", "[", 
     RowBox[{"cd", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", ";;", ",", "i"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"cd", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"sj1", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "6"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.511243507078125*^9, 3.511243532328125*^9}}],

Cell[BoxData[
 RowBox[{"{", "1.5142968158524666`", "}"}]], "Output",
 CellChangeTimes->{{3.5112435023125*^9, 3.51124353290625*^9}}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1., 1.5142968158524666`}, {1., 1.5142968158524666`}, {
   1., 1.5142968158524666`}, {1., 1.5142968158524666`}}, {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[{3, 4}]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[{1, 2}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1.}, {0, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.5112435023125*^9, 3.5112435329375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"dDist", "[", 
    RowBox[{"ncd", 
     RowBox[{"(*", 
      RowBox[{"[", 
       RowBox[{"[", 
        RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "*)"}], ",", 
     "CosineDistance"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "3", ",", "0.4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"it", " ", "should", " ", "not", " ", "be", " ", "normalized"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.511243735015625*^9, {3.511243770984375*^9, 3.511243784953125*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., 0.5399659863945578}, {0.4, 0.}, {0.8, 0.}, {
     1.2000000000000002`, 0.}, {1.6, 0.}, {2., 0.46003401360544216`}, {
     2.4000000000000004`, 0.}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    LineBox[{{0., 0.7551020408163265}, {0.4, 0.}, {0.8, 0.}, {
     1.2000000000000002`, 0.}, {1.6, 0.}, {2., 0.24489795918367346`}, {
     2.4000000000000004`, 0.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.51124373803125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"eucDist", "[", 
    RowBox[{"cd", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", ";;"}], "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4", ",", "0.3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.6"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.511243588859375*^9, 3.511243593515625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{0., 0.14987244897959184`}, {0.3, 0.1441326530612245}, {0.6, 
     0.11819727891156463`}, {0.8999999999999999, 0.101828231292517}, {1.2, 
     0.08715986394557823}, {1.5, 0.07312925170068027}, {1.7999999999999998`, 
     0.050595238095238096`}, {2.1, 0.03486394557823129}, {2.4, 
     0.030399659863945577`}, {2.6999999999999997`, 0.020833333333333332`}, {
     3., 0.01721938775510204}, {3.3, 0.015731292517006803`}, {
     3.5999999999999996`, 0.01211734693877551}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], 
    LineBox[{{0., 0.32653061224489793`}, {0.3, 0.3469387755102041}, {0.6, 
     0.04081632653061224}, {0.8999999999999999, 0.08163265306122448}, {1.2, 
     0.061224489795918366`}, {1.5, 0.}, {1.7999999999999998`, 0.}, {2.1, 
     0.}, {2.4, 0.02040816326530612}, {2.6999999999999997`, 
     0.02040816326530612}, {3., 0.}, {3.3, 0.02040816326530612}, {
     3.5999999999999996`, 0.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 0.6},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511243579359375*^9, 3.5112435943125*^9}}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"is", "=", "cd"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0.005"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.6850000000000005`", ",", 
   RowBox[{"{", 
    RowBox[{"0.32653061224489793`", ",", "0.32653061224489793`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.511243675390625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pg", "=", 
   RowBox[{"KNN", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", 
     RowBox[{"K", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"VF", "[", 
  RowBox[{"tg", ",", "pg"}], "]"}]}], "Input",
 CellChangeTimes->{{3.51124381190625*^9, 3.511243835421875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.036651395251978344`", ",", "0.01870748299319728`", ",", 
   "0.8979591836734694`"}], "}"}]], "Output",
 CellChangeTimes->{3.511243837140625*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["use one measure of all persons", "Section",
 CellChangeTimes->{{3.510735429484375*^9, 3.510735456265625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"mp", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.51124387559375*^9, 3.511243893390625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.51124389425*^9, 3.511245157828125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ic", ",", "W", ",", "A"}], "}"}], "=", 
   RowBox[{"fastICA", "[", 
    RowBox[{"mp", ",", 
     RowBox[{"retW", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.51124413428125*^9, 3.511244174578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"use deltaW:\"\>", "\[InvisibleSpace]", 
   FractionBox["1", "1000"], "\[InvisibleSpace]", "\<\", Maxstep:\"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm["use deltaW:", 
   Rational[1, 1000], ", Maxstep:", 100],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576789375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Smallest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "0.00012965031502726408`"}],
  SequenceForm[
  "Smallest remaining (non-zero) eigenvalue ", 0.00012965031502726408`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576789375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Largest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "6.1729717631243615`"}],
  SequenceForm[
  "Largest remaining (non-zero) eigenvalue ", 6.1729717631243615`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576789375*^9}],

Cell[BoxData["\<\"whiten OK\"\>"], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576789375*^9}],

Cell[BoxData["\<\"guess OK\"\>"], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257678953125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257678984375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[2, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257679015625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[3, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.51125767903125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257679375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257679890625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[2, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576799375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[3, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.51125768*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[4, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257680046875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"5", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[5, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257680109375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "49", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\" Failed to converge, give up\"\>"}],
  SequenceForm[49, " ", 6, " Failed to converge, give up"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257680171875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total time:\"\>", "\[InvisibleSpace]", 
   "1.25`7.548455006504029", "\[InvisibleSpace]", "\<\"seconds\"\>"}],
  SequenceForm["total time:", 1.25`7.548455006504029, "seconds"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576801875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"failed \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" times, try from the beginning\"\>"}],
  SequenceForm["failed ", 1, " times, try from the beginning"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576801875*^9}],

Cell[BoxData["\<\"guess OK\"\>"], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576801875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257680296875*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.511257680390625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.51125768053125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "\<\" Failed to converge, try again\"\>"}],
  SequenceForm[1, " Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.51125768075*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total time:\"\>", "\[InvisibleSpace]", 
   "1.375`7.589847691662254", "\[InvisibleSpace]", "\<\"seconds\"\>"}],
  SequenceForm["total time:", 1.375`7.589847691662254, "seconds"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.51124417571875*^9, 3.5112441901875*^9}, 
   3.51124490015625*^9, 3.511245036625*^9, 3.5112451593125*^9, 
   3.511256674140625*^9, 3.511256731703125*^9, 3.511256870546875*^9, 
   3.5112576815625*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "ic", "]"}]], "Input",
 CellChangeTimes->{{3.511257919890625*^9, 3.511257923453125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.511257924171875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"nic", "=", 
   RowBox[{"ic", "/", 
    SqrtBox[
     RowBox[{"Length", "[", 
      RowBox[{"ic", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]]}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"nic", "[", 
   RowBox[{"[", "20", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.511257939109375*^9, 3.511257959828125*^9}, {
  3.511258046796875*^9, 3.51125805496875*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1V3s81FkbV721SbV0IaSVjVLShegivghFuQxyyxgzZtxmzEghtozconIp
QqVVttwiSjcpk1oWq6RVUjF0obctKirV2rf34xn/+DzzPc/5nudyvs/5zWcL
GdzxcnJys8bJyf3//9jfoJmi+4auJWHFtfQDPnUcufogdg/Zk7GJmX17f/Yt
szFbEaYlUdyoz3vInoXFUcYeL9wLaf0c5PSFS681xJI9F9qf0//Vz8mm9Zr4
puSqVTucS7YWFijdrIi5dJLsBbjvvqdlS9gu8tdBkVO14XvGOcIX4eZwwqee
E8cJX4yrkb8drrxXQLgeGNlmBSb/2Ua2PqbuzAtwm3yG7OXY+oPnzn1qS8he
gc3OP3trxZ8geyWGc22Fcwz30f4G6FKcZNhjU0S4IaynOT3oOJxP9ipY9wRu
Go1ZQ+uNkHPc52Cj6inCjfFF/VO87q2DhK+GV7KTNDP7FNlroGI0NfN2Xiat
XwvBJNWz2ipxhK+DSHGdgT4rkXATdBYkr97aWEH4emj/m3V8vmsW2abY3Jxz
J3xvCa03g4vRuq61QycIBxT0qqbraJwfw8WAshF73TTNAsLN0RZq1J/GluHm
cJBsfTh9wVXCLVBsVH6CH1w6Zost0L6b07Ctu4xwS/ww3rrOLiqF/C3R7uKl
NvV5BuEbkOC9rPmwnh3hG9B07Fp/Y7QD4VZo1bRvWnXmHuFWaKoztnB/V0Hx
WOPkY/3ZjLxjhFvjp/PJzONMWf/awHHXVLclP1G/im2w9pePPOdDdB65jdD6
Kn20r8+Ozr8ROzYPPc2tl51/E5adUbj7ZX444ZugvKzuueOIrD9tsbCqtlRF
kEe4LbQ+pPBbKmX9Y4e1NffPbneNJtwO8s135Ac2yPphM17Wm1Qutad+FW+G
ovSVUdqiY8S/BRU6A1/9bxSR/xYwVdpejN4SEW6P6Y4Z0dyYaPK3R6flq8Hh
D8mEO4Bts507cJTyJXZA0/J/GJEWsv5yRHPlGQObLIoHjjgmzx1QdQ4mPke8
ZSoXmGVSv0kcUf6J6VOfmkz+TtDSuRc/XJRH/k74IzGszSzYh/ydwNx5Weuy
ein5O4EnF3tupS6PzsdAWdhTvvKydPJn4HmfQR87ikP+DEQpJhU7PUofsyUM
7L4ys0fhHdlyzojVeJ8XWBxF/s4Ysp9fblfEIn9npFnsUk2I2kX8zjj4uf/B
NPnfyN8Fz0RP1F600/2DC/raA5I8cil/YheMrv5V1fm/VC+JCyZcSC/Typbp
myvCLduzvd0pv3BFk6vuyjptuq9iVwhyH5sIDM/T+V2hsCTg1GbBacrfViT7
XhBrNIWQ/1Ysr36q5bnzV6rXVnTUjGpNyb9K/FsxHN7tLZywl/zd8Lc5L8Eq
L4n83bD9vfJ2jVWkB2I3aKss7iiVNyB+N9jnZq8aOXSQ/N3xZYfD6N4YNvm7
w7m2zLS9m/RU7A6dgifa6R10XyTuULK8O/NnfiH5e4DZlhhxxCyf8ucBr8AO
X+PiQ+TvgYzArD8G/XaQvwe4amW3Ty+8QvnzhLaedrNq0O/k74nKd357/Kae
JH9P5IUHvTRVpnxLPPF1l+MNp2m0v5wXVJL0N+x9Q/cdXjhr/OzSTHtZ/3rB
pXrh67U2dD6JF5LG+ZWZjT9M598GwxUnLv1oFk/+23B0yO+5lpD2E2/D6X/d
GL17aF5JtkGxrXycTQ3dZzlvvEtv6VvNIP2HN4SfNQ5JVMupft7ImfFsizRZ
xu+NybZVaccjZPefCYve9R1oJf0CE9W7klKqTGjeiZnIit72KHBIRPxMtCwI
Kf+hLZX4fRBx3cRl+yVZ//vAO/vgxIZHR4nfB2UDM7Ly62jeSXzwtmvKWQt7
2bxiwS5NsPDNqrIxW5OFqJYbM8WMMNqPhakZb8uYd4iPxYJn6vXbneV038Us
LNicntIdTHqez4Jgf0Eh319M8bLw7brL3Cs6F8fWS1nYY729+I3zJTq/L9ya
Dj1YI7pG/L7YbSh2XVUiy6cv1raUvkxsOTtms3yxnC9K2VJM/Sv2xaLexFsV
11eM2fm+6MpVez5/cjHF64tE6UDoH38dHeOT+sLBtEHh3oQLFD8bWUva2zjh
pNeabMyY169r/aCK+NnwTEw+z7tPesdiI9y77/2maMqnmI1iZo9B9I8UTz4b
8Xy5WvU/6b0hYcMj8s6fdzmkB1I2zL+otO67kUvxc3Bgrrl5+yM6nyYH2UVF
/DAh5Q8cSPxPPr50PJT4OZgzcWP012HZPOAgPcFEfFK+kvg5EB/ziG17Rfom
4eBiZWeqdQnNZykHNeOYv7qmyN4Hfpg72J/75GfSf00/2MppRwwrUD3hhx26
9Wf65QXE74cBP6WvXpY0H8V+uNbIUZLrrSJ+P1xIiH42OIn0XOIHzrBT3rk0
ilf6ff3ptIvNl2XvNy44hZK/1BbXEz8Xfxk/1Mj4KJsnXCjpnIvU5lE9WFw8
NJolOetO80vMxXvlSXH3d9yk+nPRp1y5W/26N8XPRX7JTH5L+z7qPy7iqzwS
F2blUPw8dGhm3fJ81U355yG+5oxJ4NIs4ufh3dOOJzELjxM/D6/9I6Mz6un9
JOYhiVHeu3+E+iefh6rhcSOKvx+i+HmQrjrJ7V5E+izlgf3N2ORGu+z964/i
e+MjR8yo3zX9MbutM/jAMcoX/FFqvak+qdCR7p8/fnINTZ6+jPRX7I9OiZx+
ucFhyr8/zgRIhup6SP8l/jhXr37p3TlZ//mjt/Ch9Oq7AOIPgF79oOGyhjTi
D4BGrHOrWk4m8QfANMWqLcCD5jcrAIUKfpLk06nEH4DU/vWLBhxo/uUHICVA
MZR/OoLiD0C2bZinrZBJ/AGYN3voSlRtAvEHQj/5+RfrhBjKfyAmnpvI8dtB
9UIgjHusTRN3U7ysQEx7YiOZ20C4OBAXd8y57X2TzpsfiOLSI/mVzVQ/SSAi
fObNblxNtjQQIdPNX3LdZPMjCKv3hAnMRqgfNYOwXysthiWh+iAIU54//Geu
vkx/gjBjoGjR8XU1xB+Evtjfblyb5EjxB8Ft8OLoGT69HyRBaPaQj7NDNfEH
4VFcTs1olkx/g7Hbg9uTUJRE8Qfj29V0r+FZpCcIxsTHEVNy5al+rGDwnjoy
PjnI3gfB+Nv29duqQpov+cEwFhjFdX6wIv5guEdPqFkTUUL5/75fdGBfbaXs
+4gPe1wNVB+5Sfx8TJy9f8XnZJqf4GPa76adWl/pe4DFx+6JTxt6YkmPxHzU
jtywKplC75t8PmbWfGQo9VI9JXzcZY6WuR6j956Uj7P1IXnlHOKTE6Dh7fyL
pVcoPk0BKvxNQ1N1q4lfAJ+7j8+qVFA9WAKIk5/MU5spmz8CLDlvZnNziOZp
vgA6d9T3Kw5GEr8As89bBWX2XCZ+Af68oPFG76Ds/RsClW+sxK2pjcQfgl92
KRi8PHGE6h+CdWkHODnxEor/u13Ne+HgZU/3PwSdKQWdljFzKf4QHKic0Vr0
eSfxh+BBj4PShULSC2kIIuHa3VwYR/xCCHsMmxqnU/00hXhfomejv/AIxS+E
7qn4xgyrBOIX4tTXbN142fefWIgVVQ1qDGeZ/gux8mVWuXVwIvELITAve/1x
N+mBVIjI+12DhjkHiF+E1ANLPQSqdH8VRehKk+6NldL7RVMEy7jqf2p86XzL
Reg1WLqo3FA2H0Tw6GJ+CK2k/DuKsCazjz0ljuYPS4T1D+/vqJtFeisSYaVF
8rraffSeE4ug9izZZKVe65idLkKd+awc9VbZfRZhY1bjR0f3X8b2rxBB/eub
DaUL6PtCIoLP3P7u2MkZY3jr9/0LmgfKk0jfpCI4ZDhPWB5H93fw+3k7ffn7
D8v6PxTD2RE2FzJzKP5QJKT6CIdsSO80Q8Fbamn5+RTp7/LvdtWIam8IvccQ
irucV8ML6g/V/g9rzHSr
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511257946640625*^9, 3.511257960546875*^9}, {
  3.511258047359375*^9, 3.51125805634375*^9}}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Chop", "[", 
   RowBox[{"nic", ".", 
    RowBox[{"nic", "\[Transpose]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.511258011578125*^9, 3.511258014171875*^9}, {
  3.51125831503125*^9, 3.5112583289375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", 
  RowBox[{"pd", "[", 
   RowBox[{"[", 
    RowBox[{"3", ",", "1"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.511258649640625*^9, 3.511258677875*^9}}],

Cell[BoxData[
 RowBox[{"-", "61.1379539888365`"}]], "Output",
 CellChangeTimes->{{3.51125865671875*^9, 3.51125867846875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"W", ".", 
   RowBox[{"rowMean", "[", "mp", "]"}]}], "==", "ic"}], "\n", 
 RowBox[{"Max", "[", 
  RowBox[{"Chop", "[", 
   RowBox[{"W", ".", "A"}], "]"}], "]"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51125893265625*^9, 3.511258988515625*^9}, {
  3.511259083171875*^9, 3.51125909784375*^9}}],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.511258939953125*^9, 3.51125898934375*^9}, 
   3.51125909784375*^9}],

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"A", ".", "ic"}], "-", 
    RowBox[{"rowMean", "[", "mp", "]"}]}], "]"}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.51125900290625*^9, 3.51125904109375*^9}, 
   3.51125909784375*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"mp", "[", 
   RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"pd", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5112587735*^9, 3.5112588131875*^9}, {
  3.511259080703125*^9, 3.51125912134375*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.51125912228125*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"since", " ", 
     RowBox[{"ic", ".", 
      RowBox[{"ic", "\[Transpose]"}]}]}], "=", 
    RowBox[{"275", " ", "I"}]}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"rowMean", "[", "mp", "]"}], ".", 
     RowBox[{"ic", "\[Transpose]"}]}], "\[Equal]", " ", 
    RowBox[{"275", " ", "A"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.5112593139375*^9, 3.511259334921875*^9}, {
  3.51126020165625*^9, 3.51126024140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rowMean", "[", "mp", "]"}], ".", 
    RowBox[{"ic", "\[Transpose]"}]}], "/", "A"}], ";"}]], "Input",
 CellChangeTimes->{{3.511259266078125*^9, 3.511259307515625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"pd", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], ".", 
  RowBox[{"ic", "\[Transpose]"}]}]], "Input",
 CellChangeTimes->{{3.511258381671875*^9, 3.511258387546875*^9}, {
   3.51125850390625*^9, 3.511258504140625*^9}, {3.5112585346875*^9, 
   3.51125856721875*^9}, {3.511258607796875*^9, 3.51125864321875*^9}, {
   3.511258849234375*^9, 3.51125888703125*^9}, 3.511259134375*^9, {
   3.5112593500625*^9, 3.511259351109375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "275.0000000000008`", ",", "275.0000000000022`", ",", "274.99999999999693`",
    ",", "274.99999999998516`", ",", "274.99999999999517`", ",", 
   "275.00000000000006`", ",", "275.00000000000625`", ",", 
   "274.9999999999961`", ",", "275.00000000002535`", ",", 
   "275.00000000000614`", ",", "275.00000000000284`", ",", 
   "274.9999999999982`", ",", "275.0000000000314`", ",", "275.0000000000011`",
    ",", "275.0000000000053`", ",", "274.99999999999864`", ",", 
   "275.00000000000654`", ",", "275.0000000000054`", ",", 
   "275.00000000000244`", ",", "275.0000000000162`", ",", "274.999999999976`",
    ",", "274.99999999999426`", ",", "274.99999999999164`", ",", 
   "274.9999999999979`", ",", "274.9999999999971`", ",", 
   "275.00000000000415`", ",", "275.00000000000546`", ",", 
   "274.999999999992`", ",", "275.0000000000164`", ",", "274.9999999999963`", 
   ",", "274.99999999999716`", ",", "275.00000000000364`", ",", 
   "275.00000000000574`", ",", "274.9999999999996`", ",", 
   "274.99999999975756`", ",", "274.99999999989154`", ",", 
   "274.99999999999176`", ",", "275.0000000000271`", ",", 
   "275.00000000000307`", ",", "274.99999999999847`", ",", 
   "275.00000000001165`", ",", "274.9999999999934`", ",", 
   "275.00000000001916`", ",", "275.0000000000063`", ",", 
   "275.0000000000247`", ",", "275.00000000000574`", ",", 
   "274.9999999999713`", ",", "275.0000000000341`", ",", 
   "274.99999999999284`", ",", "275.00000000000983`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.511258388859375*^9, 3.511258505171875*^9, {3.511258544578125*^9, 
   3.511258568921875*^9}, {3.511258613125*^9, 3.511258643828125*^9}, {
   3.51125885025*^9, 3.511258887671875*^9}, 3.511259135015625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"rowMean", "[", 
       RowBox[{"pd", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
      RowBox[{"nic", "\[Transpose]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ncd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Normalize", "[", "#", "]"}], "&"}], ",", 
       RowBox[{
        RowBox[{"rowMean", "[", 
         RowBox[{"pd", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
        RowBox[{"ic", "\[Transpose]"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.511259384890625*^9, 3.511259388890625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "50"}], "}"}]], "Output",
 CellChangeTimes->{{3.511259369171875*^9, 3.511259389375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "50"}], "}"}]], "Output",
 CellChangeTimes->{{3.511259369171875*^9, 3.511259389390625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"cd", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Much", " ", "much", " ", "better"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.511260001828125*^9, 3.511260060328125*^9}, {
  3.51126156628125*^9, 3.5112615749375*^9}, {3.511261707*^9, 
  3.511261707296875*^9}, {3.511261826609375*^9, 3.511261833265625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7O81Jq/UXnt/P1TA4ffU+MfTJl+A8jkcDkwV
nuu55CGUL+Cw5sr7HzmuN+whfBGHG/8Oq3R73YDKSzjse9kboVX3A8qXcaho
vFLBMesxVL2Cg0lZvdF0q2tQeSWHo3dCV3M6zIfKqzjIX7/8yaz0HVRezWHG
efX0NV2MDhC+hkOc7psPTFW/oOq1HKamcL/9de4XVL2Og3+PbNjrlodQeT2H
3cenrj0nz3IAwjdw+H91a1eMjRCUb+jgtetl8RH/K1D9Rg4ZiyQia/fdhfKN
HWKyrrTMPP4Tyjdx+F+4ydI+gQHqHlOHqiMhG3Y92wiVN3OYlflKh4n5B9R+
c4fID8b78nb/g/ItHGo+PL21aw4P1H5Lh/uFCe537/2Fyls5fD+n2jYzVxpq
vrWDb61Bh+BlFijfxsFhcUa4UbQwlG/rsCW0/vli5jdQ++0cXIzm3xP9www1
395B0DDtbYg0F1S9g4OPVVzVRVYRCL/BwUH/pdbCD7kvoPodHeYuMriySeE9
hN/g6GDGF5387D7MfieH7aeCCp/wcELMb3By+Gy7cfFWc0GovLODdmjLtPr1
r6D6nR3eC3+v3/+PFeoeFwdR3uI/81Q+Qfzb4OJgFPH59bS5clB5Vwc+Htsp
P2M+QfW7OkzPXy1iZQFLL24OGod+HOw8zAa1381hXd8qmRsLYenX3WGXn/S6
CD9o/De4O9y6/8D14poPUHkPh78rbatuBxyGyns4rLXtn/lBDRb/ng4hT0/u
nrv+oz0Afk71xw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7N3l57jGqb7cDxVwWFSRHdzR3mYP4XI4dLwu
39TNewgqL+DQ+SbVL19iE5Qv4mD90UxQMfARlC/h0FL75Md1oddQvoyDl7mk
64QT96DmKTh8Td9pY61/GSqv5LCQ6eOrm5vOQ+VVHOY5SnPvfPEGKq/m8Hvi
jFdtbZ+g8hoOeoHmx2caX4DytRx2pDjse/v9G1S9jkPz1XvLS50XQfl6Ds+u
PDprfI/lAIRv4KChvDLIyYITyjd0YNvieXkOH8w9Rg5xKxgLW9/ch/KNHaqy
s8uXhj+H8k0cnI50Pups/QC139Th8J77s7RPPIXKmzmEbRNQyuP9CJU3d7BZ
L+5ac+cdlG/hYGd+wUyTnQFqv6XDGafalcwTn0HlrRx+2204KJDG5QDhWzs8
2dHdqlR2FSpv41Ddelx0g4UAVN7W4aHCTwmhgI9Q++0ccoMqfTfGwfj2Dpt2
+El2GLJC1Ts4lM2S2vy7jhvCb3BwiMzq2txsB4t/R4c1bMLTrl+9A+E3ODrI
Kax29778HWq/k8OC7wV6Cv4cEPc3ODn0iaWdvnWZH2q+swNnxov3Zxe9h+p3
dnj8c1rg5pNMUP+6OIQE9E2VfvAIYl6Di4PU+p5HjuziUHlXh4z1d+ZyqW+G
yrs6sPF1dea5voC6z81BM8ZdMijyM9R8Nwed54nbdoUch8q7OwS6cbDrnIXG
T4O7w7O9AtsuJzyAyns4XPXbxL3yzjaofg+HWqfQCYL1J6D+83TwaV0ver//
qz0A/fXp4w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511260016578125*^9, 3.51126006071875*^9}, {
   3.511261566890625*^9, 3.511261575640625*^9}, 3.51126170778125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"sj1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"J1", "[", 
     RowBox[{"cd", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", ";;", ",", "i"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"cd", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"sj1", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "12"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.511261614765625*^9, 3.511261626265625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8088785607927975`", ",", "2.8097974840714235`", ",", 
   "3.9576045281273533`", ",", "2.4566599573275436`", ",", 
   "3.0570538895277046`", ",", "1.5576757367209417`", ",", 
   "1.69949090763183`", ",", "1.1260501868458153`", ",", 
   "0.9610298600289255`", ",", "2.323360550988203`", ",", 
   "4.724682504479176`", ",", "1.114989604510228`", ",", "5.319497524662423`",
    ",", "4.313285925438277`", ",", "2.143619175651838`", ",", 
   "6.047898346081991`", ",", "1.6963247328988518`", ",", 
   "1.3847985536243854`", ",", "2.647053282072873`", ",", 
   "2.564908818125281`", ",", "9.738212874332577`", ",", "9.04694403074545`", 
   ",", "3.242407531602944`", ",", "8.562898813695687`", ",", 
   "1.0208415583894712`", ",", "5.679007857433259`", ",", 
   "1.532687236569072`", ",", "11.473980229813082`", ",", 
   "8.851984902692077`", ",", "2.3378376173948787`", ",", 
   "3.4347557070682706`", ",", "10.90511571376685`", ",", 
   "1.5931961828141201`", ",", "6.7699519312647265`", ",", 
   "3.1287492389396254`", ",", "4.995346005022792`", ",", 
   "8.809875528836537`", ",", "6.5726238235563095`", ",", 
   "3.2692946755978576`", ",", "1.6697852343607413`", ",", 
   "4.395393665828136`", ",", "2.2476725243819695`", ",", 
   "2.1595947862574527`", ",", "1.7707594207869017`", ",", 
   "1.631931791005542`", ",", "7.255249076499407`", ",", "4.620322440296029`",
    ",", "7.435551145368866`", ",", "4.641013314951701`", ",", 
   "10.468508448669771`"}], "}"}]], "Output",
 CellChangeTimes->{{3.5112616101875*^9, 3.511261627453125*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIAWIQDQEf7Lf4LPQKffTSHirgYHeoWKq8is0BwuVwOFMu
NkFnJT+UL+Aw59WHUNvlzFC+iEMFT+7qGyUcUL6Ew4TL61Ns3/yAmifjMIHn
UIKs4W8oX8Hhd0uSsS/LJyhfyeHW9syNBw+8g/JVHFbXVPHZTWOCmqfmcODR
Im3hZ0JQvobDAdY3Yf+vfYSq13J47/8uWstdFCqv43DWfALbOQdBKF/PIY2t
5LyiGiOUb+DQe3G6M4+hBJRv6PBQxThdVQXmPiOHhGum7Uoa36B8Y4c/ulmu
WrqsUPUmDr39Eq/etbBA+aYOlrUbOb9XKkP5Zg4zpnnycEooQfnmDkH+KjHF
HzihfAuH4v7vriYKilC+pYPyY6uvsaEfoPZZOfTM+XrVd7sYVN7a4csPB97H
rbDwtHG4+S+5c+0nNai8rYNYfXWs+RaYeXYOFX0Fpk82w8LP3iHojo1xYhU3
lO/gcKtodXD2eVUIv8HBIeP4FffdtT+h5js6zJModM8TkYbKOzrkcYeuW8sO
c7+Tw2np9b+tfwtD5Z0cWONiGFfMg9nv7HAnzOdZrJcUVN7ZQbSg9XuzOhdU
3sXh/ZFzOwq2/4LY1+DiwCezX/jRFFh8uTo82tK02/o3NL4aXB2+bp6z8KYb
LP7cHOouTr3CHvoHqt/NoXFfVVOKDNQ8BneHPTP6mRNYZaH63R0q9D3OmVbD
0o+Hw5OEKXKM+2DyHg5dQgmnUyfA5D0dsu8/DHvwXgXKH80fo/ljNH9gyx8A
PpiZmw==
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66,
        67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 
       84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
       100}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
       50}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 50.}, {0, 12}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.5112616101875*^9, 3.511261627453125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"check", " ", "all", " ", "feature", " ", "data", " ", "first"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], "=", 
     RowBox[{"eucDist", "[", 
      RowBox[{"cd", "[", 
       RowBox[{"[", 
        RowBox[{";;", ",", ";;"}], "]"}], "]"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"dt", "=", 
     RowBox[{"DistList", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dd", ",", "ds"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "15", ",", "0.2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"dt", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.15"}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.511261694609375*^9, 3.51126177253125*^9}, {
  3.511261802859375*^9, 3.511261818546875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd1GtIk2EUB3BTE60oLysttdzmppszSfehi/ieCBEygiS6GNqYrcmKOcIu
JpauMJVlzjlMo8uHsSwr8kNJFkRZ0KCrVDqT0HReKCkSsigi5/PfE+5hYzy8
5/zOec/7PhNrS/J0gQEBAbkzX++v/2pt8S6XMHfv5nt1hncN+12fEOYq3/zi
pwRnWuZg78PNgn6/d/0QWu9sGuiJLhRY/i/h2UXZl9FOjfDiuXf9ER5rFIaR
okM+hzquqUcG9EcRP4+kEVmX39vLBeYHUXW9M3dUUoX8YGo/uFbbH1WLeiHI
PwMvlFg/dfDCyBOi/63bZYW3kAZdhrKiYBu8RVQs02XqzQ3wFtMDaer40JIm
eOGUt6ZUXZDejPhwYv03wo+gdfPTrg56mpAfyT1WL4rKRbdyho77PBH1W4zT
mttN8ET0KvLI1J7Q8/CWUsHsDdrgLaOdRtPdvdV2eNFUNF7ctW91I7wYaqn4
ukMTa4cXQ2zeDfCWU/bJpHbPWSu8FXSp63OftsQGL5b+pt+o+eSwwYuj3c4n
G3rM9fDiKMjUtsDz0wovnsJuOixjW3zzWsnnybxV5Jgey9d1W+El8H5YfAJd
+S4UvjtggZ/A682mZ4i5z+qJKaY5+8KbyXp4Ev48mSchQ8G9R+4TtfAkZD+W
k/+6+xz6kdJkeWfgh7YaeP/3zEuksaz7lX3b6+Al8veLeYl0uLfj6Ud5NTwZ
5nUKngzvgxmenBRb14vdE2Xw5Hj+p+HJeTzzkrjPvCSq2nbdNfzS5yVT/NuN
M58KeMn8OvOSMa9KeArMuxKegtdnnhL35+tPyftlntLv/KXAM8FL4fnMU+G8
lMJT4TyUwlNxn3mpxP4fjPBSuf8PvmnoZQ==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0b0uBFEYh/HxEbEhshgs1rLYsb6q1c/pFCouQYJST+0ONNTqrRSr0Uu4
AKWoRCORSCQKjv+Z82aeN9lsnp1zfnNmtnl4enDUnyTJ3t/Hf3Our/w85OV+
zs/T7u7L2WW+0/HzmvcaF+/7vftc199Cd8O+j/D7XVj/GdefHPv5Ct5tWPcd
/adHPz+xwzFc4Wt9n9P1m+APxNb+QVecX/cbcklphl3hy6u48vONwBuFNwav
Glvrq/DHsX8C95uEl8JL4U3Bm44tbwZeDV4N3iy8OXjzrvx/1OHV4S3Aa+B5
F3G+Jay3lm/9v73TjK37WWuW4VnLs9Z5VuBZa1bhWcuzlteC18L7y+Bl8DK8
rzV41po2PGt51vLW4VlrNuBZy7OWtwnPWrMFz1qetbxteNa/IEEwCQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 0.15},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.51126171578125*^9, 3.511261773234375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"dDist", "[", 
    RowBox[{"cd", 
     RowBox[{"(*", 
      RowBox[{"[", 
       RowBox[{"[", 
        RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "*)"}], ",", 
     "CosineDistance"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.2", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.6"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Cosine", " ", "is", " ", "really", " ", "better", " ", "here"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.51126230659375*^9, 3.511262356734375*^9}, {
  3.511262469421875*^9, 3.511262483671875*^9}, {3.511262621234375*^9, 
  3.511262635125*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQDQNvq7cz3V7RYT9rJgjstF8d0Ce/cOoSKP+k/VLh
SXPnOS6zNzEGgcv2TZ3//MJOr4bK37QHqZ7ycY09xLQH9hLTXWdffLsOqv6x
/Z0jh2our1lrn54GAs/sFU9PqXCP2gDV/9Kem3FxyOTja+3PngGBN/YLPtnH
Xc2GmffBPnLZEetLTeug6j/aHwq6cuK4ygao+Z/tfb6Ub4q6twKq/wvcPIh9
3+y/fGDnCvi5HmreD3vHqvp1oWZroOb9tK/1YTobXL4Wat5v+7LP0RwSS1dB
zftjf8X4hJHqvYVQ8/7Zr86xSLolXAk1j8EBFo4Q9Qg+AJQWnEI=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQDQNvAnfItb5+aD9rJgjstIfwD0L5J+F8E2MQuGxf
LbLO/WHVFqj8TSh/ij3EtAdQ/hKo+sf2MHvS00DgGZwP0f8Srv/sGRB4Y8+A
Aj6gqf8I50PM/wznQ/R/QbPvG5p5P9DM+4lm3m808/6gmfcPzTwGB1T1CD4A
Ebxpiw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 0.6},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.51126231340625*^9, 3.511262357484375*^9}, {
  3.511262470421875*^9, 3.511262484671875*^9}}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"is", "=", "cd"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "0.005"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511261877078125*^9, 3.511261884078125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.644999999999923`", ",", 
   RowBox[{"{", 
    RowBox[{"0.2`", ",", "0.2`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.511261905296875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist2", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0.001"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511261951015625*^9, 3.511261951375*^9}, {
  3.511262652375*^9, 3.511262655984375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.33800000000000024`", ",", 
   RowBox[{"{", 
    RowBox[{"0.11183673469387755`", ",", "0.12`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5112619538125*^9, 3.511262664421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Use J1 to select features.", "Subsection",
 CellChangeTimes->{{3.51126314271875*^9, 3.511263176515625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"oj1", "=", 
  RowBox[{"Reverse", "[", 
   RowBox[{"Ordering", "[", "sj1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.511263349140625*^9, 3.51126337440625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "28", ",", "32", ",", "50", ",", "21", ",", "22", ",", "29", ",", "37", ",",
    "24", ",", "48", ",", "46", ",", "34", ",", "38", ",", "16", ",", "26", 
   ",", "13", ",", "36", ",", "11", ",", "49", ",", "47", ",", "41", ",", 
   "14", ",", "3", ",", "31", ",", "39", ",", "23", ",", "35", ",", "5", ",", 
   "2", ",", "19", ",", "20", ",", "4", ",", "30", ",", "10", ",", "42", ",", 
   "43", ",", "15", ",", "44", ",", "7", ",", "17", ",", "40", ",", "45", ",",
    "33", ",", "6", ",", "27", ",", "18", ",", "8", ",", "12", ",", "25", ",",
    "9", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.511263360859375*^9, 3.511263374984375*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"geteer", "[", 
    RowBox[{"s_", ",", "tg_", ",", "fc_"}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pdata", ",", "templ"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pdata", "=", 
       RowBox[{"s", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"templ", "=", 
       RowBox[{"s", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"EER", "[", 
       RowBox[{"pdata", ",", "templ", ",", "tg", ",", "fc", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "6", ",", "0.005"}], "}"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.51126360528125*^9, 3.51126360578125*^9}, 3.511263659*^9}
  ],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"e", "=", 
    RowBox[{
     RowBox[{"Reap", "[", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", 
         RowBox[{"Length", "[", 
          RowBox[{"cd", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Sow", "[", 
          RowBox[{"Mean", "[", 
           RowBox[{
            RowBox[{"geteer", "[", 
             RowBox[{
              RowBox[{"cd", "[", 
               RowBox[{"[", 
                RowBox[{";;", ",", ";;", ",", 
                 RowBox[{";;", "i"}]}], "]"}], "]"}], ",", "tg", ",", 
              "classifyDist1"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Print", "[", "i", "]"}], ";"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.51126358796875*^9, 3.511263652625*^9}, {
   3.51126382778125*^9, 3.51126385321875*^9}, 3.51130484078125*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.51126394346875*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.511263945921875*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.51126394890625*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.51126395290625*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.511263957234375*^9}],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.511263962578125*^9}],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.511263968265625*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.5112639741875*^9}],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.511263980546875*^9}],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.511263987171875*^9}],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.5112639944375*^9}],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.511264002234375*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.51126401046875*^9}],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.511264019328125*^9}],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.511264028609375*^9}],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.51126403921875*^9}],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.511264049890625*^9}],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.511264060734375*^9}],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.511264072*^9}],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.511264083625*^9}],

Cell[BoxData["21"], "Print",
 CellChangeTimes->{3.511264095921875*^9}],

Cell[BoxData["22"], "Print",
 CellChangeTimes->{3.51126410834375*^9}],

Cell[BoxData["23"], "Print",
 CellChangeTimes->{3.511264121203125*^9}],

Cell[BoxData["24"], "Print",
 CellChangeTimes->{3.511264134828125*^9}],

Cell[BoxData["25"], "Print",
 CellChangeTimes->{3.511264148296875*^9}],

Cell[BoxData["26"], "Print",
 CellChangeTimes->{3.511264162765625*^9}],

Cell[BoxData["27"], "Print",
 CellChangeTimes->{3.511264177421875*^9}],

Cell[BoxData["28"], "Print",
 CellChangeTimes->{3.511264192*^9}],

Cell[BoxData["29"], "Print",
 CellChangeTimes->{3.511264207234375*^9}],

Cell[BoxData["30"], "Print",
 CellChangeTimes->{3.511264223109375*^9}],

Cell[BoxData["31"], "Print",
 CellChangeTimes->{3.511264239578125*^9}],

Cell[BoxData["32"], "Print",
 CellChangeTimes->{3.51126425646875*^9}],

Cell[BoxData["33"], "Print",
 CellChangeTimes->{3.51126427359375*^9}],

Cell[BoxData["34"], "Print",
 CellChangeTimes->{3.511264291171875*^9}],

Cell[BoxData["35"], "Print",
 CellChangeTimes->{3.5112643090625*^9}],

Cell[BoxData["36"], "Print",
 CellChangeTimes->{3.511264327171875*^9}],

Cell[BoxData["37"], "Print",
 CellChangeTimes->{3.511264345328125*^9}],

Cell[BoxData["38"], "Print",
 CellChangeTimes->{3.51126436371875*^9}],

Cell[BoxData["39"], "Print",
 CellChangeTimes->{3.51126438190625*^9}],

Cell[BoxData["40"], "Print",
 CellChangeTimes->{3.511264401125*^9}],

Cell[BoxData["41"], "Print",
 CellChangeTimes->{3.51126442034375*^9}],

Cell[BoxData["42"], "Print",
 CellChangeTimes->{3.5112644395625*^9}],

Cell[BoxData["43"], "Print",
 CellChangeTimes->{3.5112644586875*^9}],

Cell[BoxData["44"], "Print",
 CellChangeTimes->{3.511264477953125*^9}],

Cell[BoxData["45"], "Print",
 CellChangeTimes->{3.51126449721875*^9}],

Cell[BoxData["46"], "Print",
 CellChangeTimes->{3.511264516484375*^9}],

Cell[BoxData["47"], "Print",
 CellChangeTimes->{3.511264535859375*^9}],

Cell[BoxData["48"], "Print",
 CellChangeTimes->{3.51126455525*^9}],

Cell[BoxData["49"], "Print",
 CellChangeTimes->{3.511264574703125*^9}],

Cell[BoxData["50"], "Print",
 CellChangeTimes->{3.511264594140625*^9}]
}, Open  ]]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Cache_eICA1.mx\>\"", ",", "e"}], "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"e", "=", 
    RowBox[{"Import", "[", "\"\<Cache_eICA1.mx\>\"", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.51126468940625*^9, 3.511264701453125*^9}, 
   3.51126599471875*^9, {3.511304844875*^9, 3.5113048523125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"e", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511264590171875*^9, 3.5112646253125*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7DseLRGeNPecPVTA4YJN6fWNR2F8DgfT7PYd
S/XPQPkCDpu2d7b+XHYSyhdxmDUTBGB8CQfNmP5DXzVg6mXQ9Cs4yPpOP+Oq
BOMrOUTMyJ+11RnGV3EQtJt/bao0jK+Gpl/D4UVU6mHByzD3aTms4e/9unAj
jK/jsEOu9XXgDhhfz2EBw9T/H1fB+AZo/jN0OKJb+5BxP4xvhMY3drAGC5yH
8k0clhTYcl1ffAHKN3XYFHVP4qALTN7MgaEydH3hA5h+czT1Fmh8SwetCktW
/eUwvhWaf6wdUOPHxmHKY/cM1VRYeNiihbcdGt8eLfwcUPkNDmjqHVH5DY5o
+p3Q5J0crn06xqH26zRU3tmhb8Y3F7ZLUH6Ds8O+Y43VK9fC0ocLavw3uKCq
Z3B1aOr85xd2Gqbf1cFKX6/bbDFM3s1hB9PtFRJWp6Dybg4Lnrzas0MHymdw
d6jZDlIAk3d36Dj260KEPEzew0HQwMu08g7UPQ0eDqeuVhZGboG5zxOengE8
0epZ
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  ImageSize->{536.6666666666667, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.51126460359375*^9, 3.5112646265*^9}, 3.511304856375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"e", "=", 
    RowBox[{
     RowBox[{"Reap", "[", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", 
         RowBox[{"Length", "[", "oj1", "]"}]}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Sow", "[", 
          RowBox[{"Mean", "[", 
           RowBox[{
            RowBox[{"geteer", "[", 
             RowBox[{
              RowBox[{"cd", "[", 
               RowBox[{"[", 
                RowBox[{";;", ",", ";;", ",", 
                 RowBox[{"oj1", "\[LeftDoubleBracket]", 
                  RowBox[{";;", "i"}], "\[RightDoubleBracket]"}]}], "]"}], 
               "]"}], ",", "tg", ",", "classifyDist1"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Print", "[", "i", "]"}], ";"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.511263384640625*^9, 3.51126342634375*^9}, {
   3.51126511275*^9, 3.511265141828125*^9}, {3.511265189171875*^9, 
   3.511265211515625*^9}, 3.511304811765625*^9}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.511265224234375*^9}],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.511265226875*^9}],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.51126522971875*^9}],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.511265233921875*^9}],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.511265238390625*^9}],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.51126524346875*^9}],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.511265248734375*^9}],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.511265254609375*^9}],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.51126526075*^9}],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.511265266953125*^9}],

Cell[BoxData["11"], "Print",
 CellChangeTimes->{3.511265274546875*^9}],

Cell[BoxData["12"], "Print",
 CellChangeTimes->{3.511265282203125*^9}],

Cell[BoxData["13"], "Print",
 CellChangeTimes->{3.5112652905*^9}],

Cell[BoxData["14"], "Print",
 CellChangeTimes->{3.51126529996875*^9}],

Cell[BoxData["15"], "Print",
 CellChangeTimes->{3.511265309515625*^9}],

Cell[BoxData["16"], "Print",
 CellChangeTimes->{3.511265319390625*^9}],

Cell[BoxData["17"], "Print",
 CellChangeTimes->{3.511265329375*^9}],

Cell[BoxData["18"], "Print",
 CellChangeTimes->{3.5112653395625*^9}],

Cell[BoxData["19"], "Print",
 CellChangeTimes->{3.51126534984375*^9}],

Cell[BoxData["20"], "Print",
 CellChangeTimes->{3.511265360375*^9}],

Cell[BoxData["21"], "Print",
 CellChangeTimes->{3.511265371953125*^9}],

Cell[BoxData["22"], "Print",
 CellChangeTimes->{3.511265383875*^9}],

Cell[BoxData["23"], "Print",
 CellChangeTimes->{3.511265396203125*^9}],

Cell[BoxData["24"], "Print",
 CellChangeTimes->{3.511265408890625*^9}],

Cell[BoxData["25"], "Print",
 CellChangeTimes->{3.51126542159375*^9}],

Cell[BoxData["26"], "Print",
 CellChangeTimes->{3.511265434359375*^9}],

Cell[BoxData["27"], "Print",
 CellChangeTimes->{3.511265447265625*^9}],

Cell[BoxData["28"], "Print",
 CellChangeTimes->{3.5112654609375*^9}],

Cell[BoxData["29"], "Print",
 CellChangeTimes->{3.51126547478125*^9}],

Cell[BoxData["30"], "Print",
 CellChangeTimes->{3.51126548865625*^9}],

Cell[BoxData["31"], "Print",
 CellChangeTimes->{3.511265502578125*^9}],

Cell[BoxData["32"], "Print",
 CellChangeTimes->{3.511265516484375*^9}],

Cell[BoxData["33"], "Print",
 CellChangeTimes->{3.511265530484375*^9}],

Cell[BoxData["34"], "Print",
 CellChangeTimes->{3.511265544609375*^9}],

Cell[BoxData["35"], "Print",
 CellChangeTimes->{3.511265558765625*^9}],

Cell[BoxData["36"], "Print",
 CellChangeTimes->{3.51126557334375*^9}],

Cell[BoxData["37"], "Print",
 CellChangeTimes->{3.51126558790625*^9}],

Cell[BoxData["38"], "Print",
 CellChangeTimes->{3.511265603578125*^9}],

Cell[BoxData["39"], "Print",
 CellChangeTimes->{3.51126561928125*^9}],

Cell[BoxData["40"], "Print",
 CellChangeTimes->{3.511265635046875*^9}],

Cell[BoxData["41"], "Print",
 CellChangeTimes->{3.511265650921875*^9}],

Cell[BoxData["42"], "Print",
 CellChangeTimes->{3.511265666703125*^9}],

Cell[BoxData["43"], "Print",
 CellChangeTimes->{3.511265682546875*^9}],

Cell[BoxData["44"], "Print",
 CellChangeTimes->{3.511265698375*^9}],

Cell[BoxData["45"], "Print",
 CellChangeTimes->{3.511265714328125*^9}],

Cell[BoxData["46"], "Print",
 CellChangeTimes->{3.51126573109375*^9}],

Cell[BoxData["47"], "Print",
 CellChangeTimes->{3.51126574803125*^9}],

Cell[BoxData["48"], "Print",
 CellChangeTimes->{3.511265778390625*^9}],

Cell[BoxData["49"], "Print",
 CellChangeTimes->{3.5112658089375*^9}],

Cell[BoxData["50"], "Print",
 CellChangeTimes->{3.51126584240625*^9}]
}, Open  ]]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Cache_eICA1_mda.mx\>\"", ",", "e"}], "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"e", "=", 
    RowBox[{"Import", "[", "\"\<Cache_eICA1_mda.mx\>\"", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.51126597953125*^9, 3.511265991015625*^9}, {
  3.511304814703125*^9, 3.511304831109375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{"e", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"order", " ", "is", " ", 
    RowBox[{"important", "!!"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.51126590165625*^9, 3.511265917046875*^9}, {
  3.5113048820625*^9, 3.51130489134375*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7C/MVHB5pX7SHirgsGaauZvBxf1QPoeDwVbT
dsPf+6B8AYcHTgc0rj45COWLoPElHN4E7pBrfQ3jyzhcaz/260IEzDwFhy8f
2LkCfsL4SmjyKg4volIPC16G2afmsITV9k8j0xEoX8NhnrFjxxX/Q1C+lsOP
hA0ipp9g9umg8fXQ3GPgEH6z4MgWdZh+QzT1RmjqjdH4Jmh8U4dqkXXuD6tg
7jND45uj8S0ckr/tjW7MhfEtHWTmvJ2e6ArjWzmInfqovGUSzH3WDly7f+qy
9MD4Nmjm2Tq0Ky+zndgI49uhyds7nDBSvTdRDMZ3QHV/AxqfwdGBpWAF19Mf
MHlHNHknNP1ODleMQTbA5J1R7W9A4zO4oMm7OIQ/P5p6MQ0m7+qgsfppr6AP
TN7VARQ7hpwweTeHSSqeQAQNjwY3tPTgjhoeDWh8Bg8HruuLC2y5jkPl0fgM
ng6zZoLASXsAWtDpqg==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  ImageSize->{492.5, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.5112659066875*^9, 3.5112659180625*^9}, 
   3.511304835296875*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.511265942*^9, 3.511265957875*^9}, 3.511266026*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
use average of two measures, this should be better
since the random error is reduced..\
\>", "Subsection",
 CellChangeTimes->{{3.511304210640625*^9, 3.5113042473125*^9}, {
  3.511305401609375*^9, 3.511305415484375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"apd", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"Mean", ",", "pd"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "apd", "]"}]}], "Input",
 CellChangeTimes->{{3.511304402828125*^9, 3.511304434859375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.511304435859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ic", ",", "W", ",", "A"}], "}"}], "=", 
   RowBox[{"fastICA", "[", 
    RowBox[{"apd", ",", 
     RowBox[{"retW", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.511304711484375*^9, 3.511304712875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"use deltaW:\"\>", "\[InvisibleSpace]", 
   FractionBox["1", "1000"], "\[InvisibleSpace]", "\<\", Maxstep:\"\>", 
   "\[InvisibleSpace]", "100"}],
  SequenceForm["use deltaW:", 
   Rational[1, 1000], ", Maxstep:", 100],
  Editable->False]], "Print",
 CellChangeTimes->{3.511304714640625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dimension adjusted to \"\>", "\[InvisibleSpace]", "49", 
   "\[InvisibleSpace]", "\<\" according to covariance matrix\"\>"}],
  SequenceForm[
  "Dimension adjusted to ", 49, " according to covariance matrix"],
  Editable->False]], "Print",
 CellChangeTimes->{3.5113047149375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Sum of \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" removed eigenvalues(Choped) \"\>", 
   "\[InvisibleSpace]", "0"}],
  SequenceForm["Sum of ", 1, " removed eigenvalues(Choped) ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{3.5113047149375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "100.`", "\[InvisibleSpace]", "\<\"% of (non-zero) eigenvalues \
retained\"\>"}],
  SequenceForm[100., "% of (non-zero) eigenvalues retained"],
  Editable->False]], "Print",
 CellChangeTimes->{3.5113047149375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Smallest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "0.00007577747241472445`"}],
  SequenceForm[
  "Smallest remaining (non-zero) eigenvalue ", 0.00007577747241472445],
  Editable->False]], "Print",
 CellChangeTimes->{3.5113047149375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Largest remaining (non-zero) eigenvalue \"\>", 
   "\[InvisibleSpace]", "4.734155373125104`"}],
  SequenceForm["Largest remaining (non-zero) eigenvalue ", 4.734155373125104],
  Editable->False]], "Print",
 CellChangeTimes->{3.5113047149375*^9}],

Cell[BoxData["\<\"whiten OK\"\>"], "Print",
 CellChangeTimes->{3.5113047149375*^9}],

Cell[BoxData["\<\"guess OK\"\>"], "Print",
 CellChangeTimes->{3.511304714984375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" time(s) Failed to converge, try again\"\>"}],
  SequenceForm[1, " time(s) Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{3.51130471528125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" time(s) Failed to converge, try again\"\>"}],
  SequenceForm[1, " time(s) Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{3.511304715375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" time(s) Failed to converge, try again\"\>"}],
  SequenceForm[1, " time(s) Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{3.511304715609375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" time(s) Failed to converge, try again\"\>"}],
  SequenceForm[1, " time(s) Failed to converge, try again"],
  Editable->False]], "Print",
 CellChangeTimes->{3.51130471584375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total time:\"\>", "\[InvisibleSpace]", 
   "1.234375`7.542992110802528", "\[InvisibleSpace]", "\<\"seconds\"\>"}],
  SequenceForm["total time:", 1.234375`7.542992110802528, "seconds"],
  Editable->False]], "Print",
 CellChangeTimes->{3.511304716171875*^9}],

Cell[BoxData["\<\"ICs computation successed!\"\>"], "Print",
 CellChangeTimes->{3.511304716171875*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"a", " ", "cached", " ", "version", " ", "of", " ", "ics"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Cache_icICA1.mx\>\"", ",", "ic"}], "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ic", "=", 
     RowBox[{"Import", "[", "\"\<Cache_icICA1.mx\>\"", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", "%", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"49", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{3.511320604375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixRank", "[", "ic", "]"}], 
  RowBox[{"(*", 
   RowBox[{"It", " ", "is", " ", "full", " ", "rank"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.51132080940625*^9, 3.511320823859375*^9}}],

Cell[BoxData["49"], "Output",
 CellChangeTimes->{3.5113208119375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nic", "=", 
   RowBox[{"ic", "/", 
    SqrtBox[
     RowBox[{"Length", "[", 
      RowBox[{"ic", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"rowMean", "[", 
       RowBox[{"pd", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
      RowBox[{"nic", "\[Transpose]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ncd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Normalize", "[", "#", "]"}], "&"}], ",", 
       RowBox[{
        RowBox[{"rowMean", "[", 
         RowBox[{"pd", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}], ".", 
        RowBox[{"ic", "\[Transpose]"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "pd", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.51130494025*^9, 3.511304941140625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "49"}], "}"}]], "Output",
 CellChangeTimes->{3.511304966546875*^9, 3.5113206205*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "49"}], "}"}]], "Output",
 CellChangeTimes->{3.511304966546875*^9, 3.5113206205*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"cd", "[", 
    RowBox[{"[", "3", "]"}], "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.511304998078125*^9, 3.511305014984375*^9}, 
   3.511320626421875*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQDQEf7Fe/c5788POz/VABh0cmiQ6L8x9A+RwOnUv+
lt7Y89QewhdwuKvl9fGu9XmovIjDu0TTQxEbpkP5Eg6Lrzqzyi04CeXLOGQ9
Mk0zXvsEyldwuCFrxu1+qxHKV3II2Pn3o+/0WVDzVRyOq8nd+cR4Ciqv5lBw
1eAsV/YLqLyGw/NP0SaxU29C5bUcXNKkg38Y34fydRxqnhV5xBYfg/L1HBaw
iP55ffMyVL+BQ17EWVfpsANQeUOHpXeubV4X+wAqb+TAskrnNvuXJ1C+scN9
/dKtxnth6k0c4ro93DMO3YbyTR041+fUh2jfhao3c5jPMjd9+/HzUL65w9rH
c/Q8DxyB8i0c+P61e7QXXYLqt3RYzCY4pcHiIpRvBfTf2sl/Hc9C+dYO3T26
MVMTYP6xcTBeyZU2JfgRlG/rIFKkq9KsAAsPO4dF12cbe3vB3GfvELDq1LFp
r2Hx6+CgF+R1rHjqJgi/wcGBabH8650nz0Dd5+jwdGm61b3L0PBscHSQT30Y
eD7oNFTeyeH/rRuZc9fNh/AbnBwqm5wEus7AwsfZQePing19qZeg8s4O2jfF
GQ7+3gWVd3HomTJz18Ejh6DyLg6zNnVHd2u+gMq7Onyw+OOQr3McKu/q8Jr7
Z3L1ux1Q+90cjsTdsbkz6wLUfW4O1a8v+ExTgqUXd4d1uwT4RfgPQvW7O6yy
Yn/blncHKu/hUDrl+zUxw8tQ/R4OyU/kNONnXLYHAONj9UU=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJw1z3tIU2EYBvDTPfBSYVlZwxW2TVlDLd1q6R6nbrYstWhr1pZJF6G8pIWC
GKtkJeyfaUUlRZNMZzE3aTBos9UiskiXJnPRMJqhWKEFRS2xC3s7cDj8vud9
H76zrrRy95G5DMOk/H3/fcPPtGTPxmAy68L4QzrACufvgEg1Rl6MzLNLZtqz
A5Kwl2J/Cyc+9HiQvBx1F++WtVgPkVeh4nx+QkgSpP21eCt4PugbeUVmQ6Ew
eptDTvJ61HTwDcXfPbSfAEfT0Pi0/D7lHKisBYnun17KeYhpZRb2tfkpT0LF
UOnOdv87Mh/6hlOznzuHyQJUB9KNsS8Pk5MRuKJwCFOs1JeCecsWHR2O6yOn
olHaz/t07gnNb4Ilpko9qn5D3gxhuUsdYRyg+TR4dlTfsUWbyemYsHBdN9Jf
k4VQVUlNzGUfWYSoYxHBWpGbvAWd0XG8D71d1L8V+6JTe61KAVmMkaKpSrfQ
TN4G7qw/ytBtJ2fAoHWejMdNciYiO1ZfUmmekiUo+7FGrxzzkYGPXxvEj/iU
64BCVn1PudlLeRa6IjdYY+dfpzwLBVP9rJpnVymXoknpt52YpPvqpChJLZnh
Onrof7KhZcsaxyx6yrNxO03Rxgn20H4Ovh3Yfq0+yRSe1+VAVaexayf/3y8X
GQdZrtCXB7Sfi9rTc8TsYhv1y3BcYzDuGrDQvgzdrnsexwI75XJ4ZS+qE3/d
olyO93sLmzNGqY/Jw9BKVZHvjIf68xCbP6FtNXVL/gCO8evf
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511304993375*^9, 3.5113050151875*^9}, {
  3.511320623234375*^9, 3.511320627125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"sj1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"J1", "[", 
     RowBox[{"cd", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", ";;", ",", "i"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"cd", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"sj1", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "16"}], "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.511305108078125*^9, 3.51130512078125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "4.145478294309182`", ",", "2.1756811698329517`", ",", "3.236115271493288`",
    ",", "1.5592111233921677`", ",", "0.9593412241761438`", ",", 
   "2.45623568672349`", ",", "2.198478281691866`", ",", "0.8354632013380374`",
    ",", "0.9330661007227572`", ",", "6.822100458045233`", ",", 
   "1.5350380478416328`", ",", "0.8834376877098221`", ",", 
   "1.578839751160377`", ",", "1.447604202377492`", ",", "5.442294870035864`",
    ",", "1.4578914031189714`", ",", "4.884200404394517`", ",", 
   "9.677749089213389`", ",", "1.4586129737850806`", ",", 
   "5.827676352440346`", ",", "7.160364505111628`", ",", "10.69100054441935`",
    ",", "1.3784774058320215`", ",", "2.0271853016277674`", ",", 
   "7.363148287406622`", ",", "1.0034897133695684`", ",", 
   "6.5003362670820914`", ",", "14.370044726929423`", ",", 
   "1.6796041063871718`", ",", "3.138015062500238`", ",", 
   "1.5741711401144485`", ",", "9.2376467916347`", ",", "4.631613621492025`", 
   ",", "4.152130013976721`", ",", "1.9236677330150522`", ",", 
   "3.1653428216929083`", ",", "7.3545249614816335`", ",", 
   "8.97434829894159`", ",", "4.292929626924825`", ",", "15.45278450510284`", 
   ",", "3.0442341302406923`", ",", "2.9408979616740987`", ",", 
   "10.493204951761783`", ",", "2.2828000267029664`", ",", 
   "1.6673787295439348`", ",", "5.288699809255925`", ",", 
   "3.0611948663008226`", ",", "7.364547304040086`", ",", 
   "2.684405946031884`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5113050631875*^9, {3.511305109015625*^9, 3.51130512125*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIAmIQDQEf7O+ECzr/mCLgABVw+L6kvP10OiOUz+Fwx8gz
fcJjTihfwOFx6YuY9k8/7CF8EQfOwI+xbza9g/IlHI58830at4wZql7GYcVK
thPV02DmKTi4udwIkt3zCqpeyUGss7hg7e23UL6Kw7Wgq5uveEpD1as5qLdH
8rX0w+zTcNjfLyEr7/oGytdyuLCnt+Kt008oX8fB1VyHLVnzO5Sv55D3w/3T
iyOiUPMMHBbaz3jfGgyTN3Tg/bD+SnanMFTeyCFPcddbxmhlKN/YgeXWvr6q
MJh6E4eeuUeTu/zFofKmDrKTD083WyID5Zs52M08fulUoiqUb+5wR4c12I7v
G1S/hcOCpOy3a8wZoPKWDmJcHKp3i2WhfCsHpe1nrLz5PkDVWzsYVjeoRTBI
QeVtHAwLFjSU7dWB8m0dzCYY9a24/wuq3s7hU6TckuVSsPiyd7g8+aLwOX1Y
+Dg4sKvIXF9TqQSRb3BwOCywYMfRNiGoekeHVpHsH8dnQ9NDg6PDkR1SF8OP
/4Pqd3LQSb3nOD8Ian6Dk8OU7TnTObJh7nd2EN+z9/jdT4pQeWeHnevr9n3V
FoTKuzgckHocd/m5HlTexWEGY1nO9CgOqLyrg6v0pqavbexQeVeHCaIsMa1/
VKDybg7Gv/hX6jgzQeXdHJ78mxY4dS3M/+4OmWU2bxaoQ+O7wd1hXv/r3cG1
MPM9HO6fLHrsXQp1b4OHww4N6csrK1mh8qP5YTQ/jOYHUH4AABgQnv8=
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65,
        66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 
       83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 49.}, {0, 16}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.5113050631875*^9, {3.511305109015625*^9, 3.511305121265625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"eucDist", "[", 
    RowBox[{"cd", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", ";;"}], "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "18", ",", "0.3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.15"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dd", ",", "ds"}], "}"}], "=", 
   RowBox[{"dDist", "[", 
    RowBox[{"cd", 
     RowBox[{"(*", 
      RowBox[{"[", 
       RowBox[{"[", 
        RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "*)"}], ",", 
     "CosineDistance"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dt", "=", 
   RowBox[{"DistList", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dd", ",", "ds"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2.05", ",", "0.05"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"dt", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.5"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.51130536196875*^9, 3.5113053765*^9}, {
  3.511305431921875*^9, 3.51130548925*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQjQ6MweCyPSr/MZx/BgzeoMl/tp+11fnOJfE4qPgP
++3PDNLu7061h6j/Yy8x3XX2xbd19mfBfAYHeydtzceWzfYQ/cwOKQp77a9r
ddvPBANWqPxkqHkcDj++rmd7EDDVPg0MuBz+ZzHwhS6cAzWfx2GZvs2D6/tn
Qc3jd1hl8uROuvgCqH0CDr90WXqCfOdBzRNyOHm1sjByy0yoemGHLx/YuQJ+
zoeaL+Jg+bIlZXn6Aqh7RB0g/psHNU/M4c6RQzWX18yFmicBdw/EPEmH1TkW
SbeEZ0LNk3J4yLj/31WGOVDzpB18vpRviro3A+p+GYer/kWlcTHToObJOdT6
MJ0NLp8LNU8eGj6zoXwFhwKwg6ZD3aPgoCxoN//a1NlQ+xQdxOI/isZ/nAo1
TwluPsR+JYeZte/DEqSnQs1TdtijrPviIf8UqHnKDo2Bq04+PjcJap6KQ4Zq
qk160wSoeapwPsQ8VYe31duZbq/ogJqn5rDgk33c1eweqHlqDvGPD+y9cq0H
ap46NH5g5mlA/dMONU8Dnh4g5mk6aPpZKd582Qk1T9MBkr5aoeZpOVSLrHN/
WNUCNU/bAZbeIOZpO7jWq69+2tsINU8HGl7V0PDXgctDzNN1MDlhpHpvYhnU
PD1ofFZCzdODy0PM03fYuBLkoXKoefoOlqz6yx88LYHKGzgcStDMepJcBDGv
wQDq/lKofwyg6b0YYr6kITQ9Z0HdYwh1XyHEvM2GUPdk2gMALxB+zg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxdkLtOQkEQhk8kJISQQBAMt3ARUUCusTXZ7azxEUy0tZfGhjegsbemkYKW
hBIqn8BYQmdjYSHsv8zk/JOcnHxndr7599Qenu8fT4IguN0/hzfXjatPM87M
7r5epgb8bXajRXmyXZq1q50w+j/+/MrA8ut57s//eX43G8eBPUyPFjM/H7HH
/purqA2nitljnidXcZmHP2HD+ZPC2JciX1r24fyp9OHPyD7kyZLvjHw52p8n
X4F8Rekjf0n6+FqmfBXyVylPlfbVKN+5MPYrw1cnnzJ8F+Rr0H0a5LsknzJ8
V3TfJuVrkq9Fvhb52pTvmnzK8HWE8f+V4euSr0c+Zfj65OtTfxD2vSrjPspO
nx9SHmWn+1D+B5W5618=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 0.15},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511305357328125*^9, 3.511305377046875*^9}, {
   3.511305433578125*^9, 3.511305489546875*^9}, 3.511320635578125*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQMn5qq+ebY9wX7WTBBYaV8tss79YVULlL/Tvq1v
mfczpYn2JsYgcNi+YNZW5zuXpkPlT9qH5xVsi2+bag8x7QJcHqL+sv1zu90N
N0Jm2aengcA1e7ft1QYRXbOg+m/aS0x3nX3x7Tz7s2dA4I79yauVhZFbZkLN
e2D/5QM7V8DP+VD1D+1NGdpXBfTNh5r/2H5fdGNuCM9cqP4n9pxrl/Q891kA
te8Z3HyIeS/sIf5dADXvpb21bbNO8KO5UPNe2//PYuALXTgHat4buP0Q897B
/QMx7wNcP0T9B/upFe5RFw7D3PvRvmQ3e/PSFQuh+j/ZL/hkH3c1ew7Uvs/2
WbE7D96sg/n3i/3qHIukW8IzoeZ9gfsPYt5XuH8g5n2zX2Xy5E66+AKoed/h
4QMx74d9U+c/v7DTs6Hm/bDfIdf6OnDHPKh5P+Huh5j3yz7+8YG9V67B3Pcb
zb9/7Lmf/hCM8oS574998ouMXSl6k6Dm/YWG/wSoef+g/qmEmvfffpm+zYPr
+7Wg5jE4wNIhAH/PLI0=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQDQM75FpfB+64Zz9rJgistK8WWef+sGoLlL/THiK/
zt7EGAQOw8Uh9Ek4H2LaBaj+KVD1l+H609NA4Jo9zF6IvptQ9Uvsz54BgTv2
DCjgAVweov4hXB5i/mM4H6L/CZwPse8Zmnkv0Ox/iebe12jmvUEz7x2aeR/Q
1H9AM/8jmv5PaO7/jGbeFzTzvqCZ9xXNvG9o5n1HM+8Hmnk/0Mz7iWbeLzTz
fqOZ9wfNvD9o5v1FM+8fmnn/0cxjcIAxAAJXt5w=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRange->{0, 0.5},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.511305357328125*^9, 3.511305377046875*^9}, {
   3.511305433578125*^9, 3.511305489546875*^9}, 3.511320635640625*^9}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"is", "=", "cd"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"is", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "6", ",", "0.005"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.78999999999992`", ",", 
   RowBox[{"{", 
    RowBox[{"0.20857142857142857`", ",", "0.2`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.511305578375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist2", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2", ",", "0.001"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.34200000000000025`", ",", 
   RowBox[{"{", 
    RowBox[{"0.11387755102040817`", ",", "0.12`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.51130559065625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
J1 is not stable...
 maybe we could use ICA ordering... like K4
 k4 is for ICs ordering.\
\>", "Subsection",
 CellChangeTimes->{{3.511266013015625*^9, 3.511266027515625*^9}, {
  3.511305269328125*^9, 3.511305286*^9}, {3.511325321734375*^9, 
  3.5113253388125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"k4", "[", "d_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Kurtosis", "[", "d", "]"}], "-", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.511308777875*^9, 3.511308778765625*^9}, {
  3.51132507090625*^9, 3.511325081*^9}, {3.511325134890625*^9, 
  3.511325150578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"this", " ", "may", " ", "not", " ", "be", " ", "right"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sk4", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"k4", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{"cd", "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", ";;", ",", "i"}], "]"}], "]"}], "]"}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"cd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"sk4", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "16"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.51132512128125*^9, 3.5113251214375*^9}, {
  3.51132518359375*^9, 3.511325185234375*^9}, {3.51132522753125*^9, 
  3.51132522796875*^9}, {3.51132526975*^9, 3.5113252725*^9}, {
  3.51132534184375*^9, 3.511325350390625*^9}, {3.511325575203125*^9, 
  3.5113255801875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "8.638696440188253`", ",", "11.358599075324111`", ",", 
   "11.443352921829458`", ",", "2.062143025956229`", ",", 
   "45.42633277623349`", ",", "8.567619263393262`", ",", "5.580532555409254`",
    ",", "59.05778652498619`", ",", "25.128411220881357`", ",", 
   "2.247393272002858`", ",", "10.345871333932418`", ",", 
   "17.314104099454067`", ",", "12.067327508479162`", ",", 
   "10.06893233216237`", ",", "0.692105930768804`", ",", "4.404909234478873`",
    ",", "1.7193929758978763`", ",", "0.8738254279648952`", ",", 
   "8.300172612528769`", ",", "0.8413908708357698`", ",", 
   "0.8369866605357874`", ",", "1.0628600991960218`", ",", 
   "8.866009881418034`", ",", "6.199192341091569`", ",", 
   "1.6239481287654662`", ",", "9.647906073300984`", ",", 
   "5.227773085976439`", ",", 
   RowBox[{"-", "0.6163298625328846`"}], ",", "4.1742465415409535`", ",", 
   "3.1828881490114167`", ",", "3.177683664771`", ",", "1.8286583869740092`", 
   ",", "2.198103191506166`", ",", "5.2152259348684975`", ",", 
   "13.377647405627986`", ",", "2.17939079588911`", ",", 
   "2.1515971384148145`", ",", "0.8823118031234634`", ",", 
   "4.0844328048185785`", ",", "1.638990099401119`", ",", 
   "1.7329242730657475`", ",", "3.8749506560005083`", ",", 
   "0.5348785840401735`", ",", "2.611509213904692`", ",", 
   "19.23379131200115`", ",", "6.377970468201621`", ",", "5.068898191285866`",
    ",", "2.6907378127021078`", ",", "4.656591026916839`"}], "}"}]], "Output",
 CellChangeTimes->{3.5113252308125*^9, 3.511325273984375*^9, 
  3.5113255811875*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIA2IQDQEf7O1jXC2Y3RUdoAIOWic9fWZtV4PyORxerC9X
//8IxhdwqHI4eN2lngHKF4HSBlBawkFk68+/85Rg5sk4fPvtp1AeJAblK6Cp
V0Ljqzj0sD4JWvmLEcpXc9Dbpc4jtlEFytdAU6/lwCvid6BCCSau41Db4yDp
rQxTr+fAsNAhbLfqM3uYvpl797ctmCcIlTd0aHFsN13U9Bsqb+SwZ3vBvoRv
r6F8Y4cJ75otN8yEudvEQWaCTs+aN6+g8qYOAgLH7GecgPHNHO4EpUyvZPwI
5Zs7iGWsXZq6GxYeFg5ZGbuEf56WgPItHQK0yzk2/v4JVW/lYJflHrHLWxkq
b+0gtI0n0vYlLJxtoDQM2DooFpSuz90kABW3c7iz+Bp/XxknlG/v0HXmZObT
bBjfwaHgwE9vfae/EPsaHBzaWNwUtk+FhbejQx33P/2UO1D7GhwdLukZMkQf
1ILKOzl0JfAUpuRD1Tc4OTi41vZXmMH0OztYeGR+e2r9Bmq+s4Pw/Lm9pWEw
97k4xIRsW+dr+Qsq7+Lwx6DkLN8uWPi7OiSJaSo++88HNd/VQUDQcuNO2YdQ
eTeHb0nhH+OesEDl3aDmwtKDu0ON3P4NXM2SUHl3Bz2/SPteN1j4eThYhdzt
XtjGCpX3cDhz8W1q5AIhqDyl+YFQ+ieUvkdaeh7h6ZeC9OpWHbBfwRMW7wYO
t/4bvm82FIfzrZZ/e998XAbO3/wpNNz5jBKcL5R//mThfHU4X6zBxsSmAVG+
Cos9LWZ4ag3lMzBo28xteq+AKH8KvtYqSqYj8t+lqPB+owUIPgDfBH/S
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[{50, 51, 52, 53, 93}], 
      LineBox[{94, 54, 55, 95}], LineBox[{96, 56, 57, 97}], 
      LineBox[{98, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72,
        99}], LineBox[{100, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 
       85, 86, 87, 88, 101}], LineBox[{102, 89, 90, 91, 92}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 49.}, {0, 16}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.5113252308125*^9, 3.511325273984375*^9, 
  3.5113255811875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"order", " ", "of", " ", "ICs"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ik4", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"k4", "[", 
       RowBox[{"ic", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"cd", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"ik4", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "300"}], "}"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "Full"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.51132562203125*^9, 3.5113256469375*^9}, {
  3.511325725953125*^9, 3.51132576478125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "120.83734132755315`", ",", "181.73108490838266`", ",", 
   "212.40719716959808`", ",", "134.44762183615902`", ",", 
   "259.2460718672579`", ",", "147.89619909037327`", ",", "216.662795265006`",
    ",", "132.04137509160836`", ",", "122.66394649910247`", ",", 
   "84.86495006780255`", ",", "45.13336123661889`", ",", 
   "141.64145276958862`", ",", "63.62091514397483`", ",", 
   "36.919908697332914`", ",", "28.56743939561422`", ",", 
   "31.284724756071796`", ",", "24.850055926670702`", ",", 
   "12.03244438992668`", ",", "10.254380206225921`", ",", 
   "12.435045871025626`", ",", "21.736087016996535`", ",", 
   "18.153469296482704`", ",", "15.112914879986256`", ",", 
   "31.54797582003951`", ",", "13.422785786795487`", ",", 
   "15.438476615153174`", ",", "6.873504879502498`", ",", 
   "14.69915648403834`", ",", "12.003635748292377`", ",", "9.94556211881723`",
    ",", "12.427022743243263`", ",", "9.244499377687259`", ",", 
   "9.09658591137431`", ",", "7.04292343362993`", ",", "5.940710361872167`", 
   ",", "7.901761116397346`", ",", "6.517772335028839`", ",", 
   "4.380058964898021`", ",", "6.652226386152572`", ",", 
   "2.9464587519699794`", ",", "6.498724693805146`", ",", 
   "2.5894846520076396`", ",", "2.8484270962482494`", ",", 
   "2.170905815491998`", ",", "0.7916533940058459`", ",", 
   "0.9207994355008604`", ",", "0.6773731486267791`", ",", 
   "0.4024521602376847`", ",", "0.28536119693176554`"}], "}"}]], "Output",
 CellChangeTimes->{{3.5113257393125*^9, 3.5113257655625*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBIAmIQDQEf7FujRRimm8Y5QAUcPJt1eVK3p0H5HA5B56IP
sfdmQfkCDi8z2F8HnUuA8kUcsp7yvnxvXADlSziU/d62cm1NEpQv4zA/JWue
qWg2lK/gUKZ1+2NQI0y/koPonxLJulUw+1UcFle0h0ebh0L5ag7tr5R+C050
g/I1HH5lfj3etiURytdycKnep1p13h/K13F4oVM6cX+pE5Sv58C6wG+r80Qb
KN/AYcGG3Tsee9hD+YYO4ZeeOM+9aQHlGzl8jxDunSOgAeUbO7z6FSJv16QC
5Zs4WC2UCN13DyZv6rCE6aFRwR5TKN/MISy087CnuhGUb+6wpHvlr/OWelC+
hUOH4CYVjx6Y/ZYOCgzvE8pvaEH5Vg59nkcYGx7A1Fs7eBRoClTUSUP5Ng4e
ZZuvfU/VhfJtHVzZKrrvMMLcY+cgG3Bxu8ITZSjf3qHn4Mydi27B5B0c3OT2
serXKkH4DQ4Op81StxYbQvkMjg47NtyT+6ItA5V3dHD5v2ey52FxqLyTw4w3
ci7ps+Wh8k4Ohx6bvTQSkoLKOzt0qSfr6rUKQuWdHbxKblg/nA2Td3G4cir0
e8Qkdqi8i4NS+rL1G/9JQuVdHWTer9vlvJ0FKu/qkJNprTrlJBtU3s3h3X3H
e8xxjFB5N4eMHQvqLUNf2kPk3R323NiSYFD+FsJvcHfw8REs4Vr7FCrv4fDA
cvaWYwdvQuU9HDIWi8+Jdr4ElR/ND6P5YTQ/gPIDAPVEkfc=
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], 
      LineBox[{50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65,
        66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 
       83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98}]}}, {
     {Hue[0.67, 0.6, 0.6], 
      PointBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
        19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
       36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 49.}, {0, 300}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.5113257393125*^9, 3.5113257655625*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1016, 655},
WindowMargins->{{1, Automatic}, {Automatic, -11}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 84, 2, 39, "Input"],
Cell[666, 26, 507, 11, 25, "Message"],
Cell[1176, 39, 507, 11, 28, "Message"],
Cell[1686, 52, 507, 11, 25, "Message"],
Cell[2196, 65, 597, 12, 22, "Message"]
}, Open  ]],
Cell[2808, 80, 227, 4, 39, "Input"],
Cell[CellGroupData[{
Cell[3060, 88, 413, 11, 148, "Input"],
Cell[3476, 101, 771, 15, 22, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4284, 121, 185, 4, 39, "Input"],
Cell[4472, 127, 233, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4742, 136, 177, 5, 67, "Input"],
Cell[4922, 143, 206, 4, 38, "Output"]
}, Open  ]],
Cell[5143, 150, 370, 11, 39, "Input"],
Cell[CellGroupData[{
Cell[5538, 165, 176, 4, 164, "Title"],
Cell[CellGroupData[{
Cell[5739, 173, 221, 3, 85, "Section"],
Cell[CellGroupData[{
Cell[5985, 180, 100, 1, 43, "Subsection"],
Cell[CellGroupData[{
Cell[6110, 185, 347, 8, 67, "Input"],
Cell[6460, 195, 181, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6678, 204, 702, 19, 94, "Input"],
Cell[CellGroupData[{
Cell[7405, 227, 422, 9, 47, "Print"],
Cell[7830, 238, 390, 8, 29, "Print"],
Cell[8223, 248, 384, 8, 29, "Print"],
Cell[8610, 258, 168, 2, 29, "Print"],
Cell[8781, 262, 167, 2, 29, "Print"],
Cell[8951, 266, 385, 7, 29, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[9385, 279, 130, 2, 31, "Input"],
Cell[9518, 283, 138, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9693, 291, 180, 4, 39, "Input"],
Cell[9876, 297, 4240, 75, 416, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[14153, 377, 295, 7, 59, "Input"],
Cell[14451, 386, 4178, 73, 274, "Output"],
Cell[18632, 461, 4257, 75, 279, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[22926, 541, 293, 10, 73, "Input"],
Cell[23222, 553, 297, 9, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23556, 567, 559, 13, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[24118, 582, 211, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[24332, 587, 314, 6, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[24649, 595, 547, 13, 43, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25199, 610, 544, 13, 43, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25746, 625, 495, 11, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[26244, 638, 610, 15, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[26857, 655, 680, 18, 94, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[27540, 675, 439, 13, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[27982, 690, 599, 16, 67, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[28584, 708, 433, 12, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[29054, 725, 1588, 42, 140, "Input"],
Cell[30645, 769, 306, 6, 38, "Output"],
Cell[30954, 777, 305, 6, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31296, 788, 636, 17, 67, "Input"],
Cell[31935, 807, 3421, 70, 397, "Output"]
}, Closed]],
Cell[35371, 880, 1035, 27, 86, "Input"],
Cell[CellGroupData[{
Cell[36431, 911, 736, 22, 67, "Input"],
Cell[37170, 935, 455, 8, 38, "Output"],
Cell[37628, 945, 874, 19, 320, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[38539, 969, 1193, 33, 113, "Input"],
Cell[39735, 1004, 1344, 23, 391, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[41116, 1032, 741, 24, 86, "Input"],
Cell[41860, 1058, 1137, 20, 305, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[43034, 1083, 1675, 42, 221, "Input"],
Cell[44712, 1127, 1095, 20, 290, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[45844, 1152, 429, 10, 59, "Input"],
Cell[46276, 1164, 660, 13, 40, "Message"],
Cell[46939, 1179, 657, 13, 40, "Message"],
Cell[47599, 1194, 625, 12, 24, "Message"],
Cell[48227, 1208, 747, 14, 58, "Message"],
Cell[48977, 1224, 552, 11, 22, "Message"],
Cell[49532, 1237, 2125, 47, 118, "Output"]
}, Closed]],
Cell[51672, 1287, 1883, 52, 302, "Input"],
Cell[53558, 1341, 136, 3, 39, "Input"],
Cell[CellGroupData[{
Cell[53719, 1348, 809, 18, 121, "Input"],
Cell[54531, 1368, 563, 12, 38, "Output"],
Cell[55097, 1382, 565, 12, 38, "Output"]
}, Open  ]],
Cell[55677, 1397, 865, 22, 121, "Input"],
Cell[CellGroupData[{
Cell[56567, 1423, 351, 8, 39, "Input"],
Cell[56921, 1433, 2814, 52, 362, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59772, 1490, 816, 18, 94, "Input"],
Cell[60591, 1510, 173, 3, 29, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60801, 1518, 377, 9, 94, "Input"],
Cell[61181, 1529, 749, 12, 64, "Output"],
Cell[61933, 1543, 183, 4, 38, "Output"],
Cell[62119, 1549, 277, 7, 38, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[62445, 1562, 317, 7, 53, "Subsection"],
Cell[CellGroupData[{
Cell[62787, 1573, 295, 7, 67, "Input"],
Cell[63085, 1582, 116, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63238, 1590, 391, 12, 39, "Input"],
Cell[CellGroupData[{
Cell[63654, 1606, 338, 8, 47, "Print"],
Cell[63995, 1616, 324, 6, 29, "Print"],
Cell[64322, 1624, 323, 7, 29, "Print"],
Cell[64648, 1633, 261, 7, 29, "Print"],
Cell[64912, 1642, 305, 7, 29, "Print"],
Cell[65220, 1651, 303, 7, 29, "Print"],
Cell[65526, 1660, 85, 1, 29, "Print"],
Cell[65614, 1663, 84, 1, 29, "Print"],
Cell[65701, 1666, 304, 6, 29, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[66054, 1678, 1408, 43, 181, "Input"],
Cell[67465, 1723, 133, 3, 38, "Output"],
Cell[67601, 1728, 126, 3, 38, "Output"],
Cell[67730, 1733, 123, 3, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[67890, 1741, 126, 2, 31, "Input"],
Cell[68019, 1745, 117, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68173, 1753, 527, 13, 121, "Input"],
Cell[68703, 1768, 7883, 135, 290, "Output"],
Cell[76589, 1905, 4162, 73, 270, "Output"],
Cell[80754, 1980, 4163, 73, 270, "Output"],
Cell[84920, 2055, 4245, 74, 279, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[89202, 2134, 760, 22, 59, "Input"],
Cell[89965, 2158, 131, 2, 38, "Output"],
Cell[90099, 2162, 560, 13, 311, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[90696, 2180, 920, 29, 113, "Input"],
Cell[91619, 2211, 613, 14, 290, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[92269, 2230, 768, 24, 86, "Input"],
Cell[93040, 2256, 1169, 21, 305, "Output"]
}, Closed]],
Cell[94224, 2280, 1565, 47, 302, "Input"],
Cell[CellGroupData[{
Cell[95814, 2331, 193, 4, 39, "Input"],
Cell[96010, 2337, 223, 6, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[96270, 2348, 316, 8, 59, "Input"],
Cell[96589, 2358, 189, 5, 38, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[96839, 2370, 115, 1, 85, "Section"],
Cell[CellGroupData[{
Cell[96979, 2375, 282, 7, 67, "Input"],
Cell[97264, 2384, 136, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97437, 2392, 291, 8, 39, "Input"],
Cell[CellGroupData[{
Cell[97753, 2404, 518, 11, 47, "Print"],
Cell[98274, 2417, 490, 10, 29, "Print"],
Cell[98767, 2429, 480, 10, 29, "Print"],
Cell[99250, 2441, 264, 4, 29, "Print"],
Cell[99517, 2447, 265, 4, 29, "Print"],
Cell[99785, 2453, 419, 8, 29, "Print"],
Cell[100207, 2463, 419, 8, 29, "Print"],
Cell[100629, 2473, 418, 8, 29, "Print"],
Cell[101050, 2483, 416, 8, 29, "Print"],
Cell[101469, 2493, 419, 8, 29, "Print"],
Cell[101891, 2503, 417, 8, 29, "Print"],
Cell[102311, 2513, 412, 8, 29, "Print"],
Cell[102726, 2523, 419, 8, 29, "Print"],
Cell[103148, 2533, 419, 8, 29, "Print"],
Cell[103570, 2543, 492, 10, 29, "Print"],
Cell[104065, 2555, 476, 9, 29, "Print"],
Cell[104544, 2566, 472, 9, 29, "Print"],
Cell[105019, 2577, 263, 4, 29, "Print"],
Cell[105285, 2583, 419, 8, 29, "Print"],
Cell[105707, 2593, 419, 8, 29, "Print"],
Cell[106129, 2603, 418, 8, 29, "Print"],
Cell[106550, 2613, 415, 8, 29, "Print"],
Cell[106968, 2623, 478, 9, 29, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[107495, 2638, 130, 2, 31, "Input"],
Cell[107628, 2642, 118, 3, 38, "Output"]
}, Open  ]],
Cell[107761, 2648, 205, 7, 53, "Input"],
Cell[CellGroupData[{
Cell[107991, 2659, 230, 5, 39, "Input"],
Cell[108224, 2666, 4357, 76, 270, "Output"]
}, Closed]],
Cell[112596, 2745, 246, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[112867, 2755, 199, 5, 39, "Input"],
Cell[113069, 2762, 125, 2, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[113231, 2769, 373, 9, 59, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[113607, 2780, 174, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[113784, 2785, 316, 8, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[114137, 2798, 323, 9, 31, "Input"],
Cell[114463, 2809, 72, 1, 38, "Output"]
}, Closed]],
Cell[114550, 2813, 495, 14, 31, "Input"],
Cell[115048, 2829, 226, 6, 39, "Input"],
Cell[CellGroupData[{
Cell[115299, 2839, 509, 11, 39, "Input"],
Cell[115811, 2852, 1748, 29, 114, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[117596, 2886, 1118, 33, 113, "Input"],
Cell[118717, 2921, 148, 3, 38, "Output"],
Cell[118868, 2926, 151, 3, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[119056, 2934, 490, 11, 59, "Input"],
Cell[119549, 2947, 2090, 40, 284, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[121676, 2992, 761, 22, 59, "Input"],
Cell[122440, 3016, 1584, 27, 164, "Output"],
Cell[124027, 3045, 1717, 34, 307, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[125781, 3084, 1039, 30, 140, "Input"],
Cell[126823, 3116, 1687, 32, 294, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[128547, 3153, 1092, 33, 113, "Input"],
Cell[129642, 3188, 971, 21, 305, "Output"]
}, Closed]],
Cell[130628, 3212, 1565, 47, 302, "Input"],
Cell[CellGroupData[{
Cell[132218, 3263, 259, 5, 39, "Input"],
Cell[132480, 3270, 187, 5, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132704, 3280, 302, 6, 39, "Input"],
Cell[133009, 3288, 226, 5, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133272, 3298, 113, 1, 43, "Subsection"],
Cell[CellGroupData[{
Cell[133410, 3303, 188, 4, 39, "Input"],
Cell[133601, 3309, 691, 11, 89, "Output"]
}, Open  ]],
Cell[134307, 3323, 940, 26, 175, "Input"],
Cell[CellGroupData[{
Cell[135272, 3353, 1209, 32, 94, "Input"],
Cell[CellGroupData[{
Cell[136506, 3389, 68, 1, 29, "Print"],
Cell[136577, 3392, 69, 1, 29, "Print"],
Cell[136649, 3395, 68, 1, 29, "Print"],
Cell[136720, 3398, 68, 1, 29, "Print"],
Cell[136791, 3401, 69, 1, 29, "Print"],
Cell[136863, 3404, 69, 1, 29, "Print"],
Cell[136935, 3407, 69, 1, 29, "Print"],
Cell[137007, 3410, 67, 1, 29, "Print"],
Cell[137077, 3413, 69, 1, 29, "Print"],
Cell[137149, 3416, 70, 1, 29, "Print"],
Cell[137222, 3419, 68, 1, 29, "Print"],
Cell[137293, 3422, 70, 1, 29, "Print"],
Cell[137366, 3425, 69, 1, 29, "Print"],
Cell[137438, 3428, 70, 1, 29, "Print"],
Cell[137511, 3431, 70, 1, 29, "Print"],
Cell[137584, 3434, 69, 1, 29, "Print"],
Cell[137656, 3437, 70, 1, 29, "Print"],
Cell[137729, 3440, 70, 1, 29, "Print"],
Cell[137802, 3443, 64, 1, 29, "Print"],
Cell[137869, 3446, 67, 1, 29, "Print"],
Cell[137939, 3449, 70, 1, 29, "Print"],
Cell[138012, 3452, 69, 1, 29, "Print"],
Cell[138084, 3455, 70, 1, 29, "Print"],
Cell[138157, 3458, 70, 1, 29, "Print"],
Cell[138230, 3461, 70, 1, 29, "Print"],
Cell[138303, 3464, 70, 1, 29, "Print"],
Cell[138376, 3467, 70, 1, 29, "Print"],
Cell[138449, 3470, 64, 1, 29, "Print"],
Cell[138516, 3473, 70, 1, 29, "Print"],
Cell[138589, 3476, 70, 1, 29, "Print"],
Cell[138662, 3479, 70, 1, 29, "Print"],
Cell[138735, 3482, 69, 1, 29, "Print"],
Cell[138807, 3485, 69, 1, 29, "Print"],
Cell[138879, 3488, 70, 1, 29, "Print"],
Cell[138952, 3491, 68, 1, 29, "Print"],
Cell[139023, 3494, 70, 1, 29, "Print"],
Cell[139096, 3497, 70, 1, 29, "Print"],
Cell[139169, 3500, 69, 1, 29, "Print"],
Cell[139241, 3503, 69, 1, 29, "Print"],
Cell[139313, 3506, 67, 1, 29, "Print"],
Cell[139383, 3509, 69, 1, 29, "Print"],
Cell[139455, 3512, 68, 1, 29, "Print"],
Cell[139526, 3515, 68, 1, 29, "Print"],
Cell[139597, 3518, 70, 1, 29, "Print"],
Cell[139670, 3521, 69, 1, 29, "Print"],
Cell[139742, 3524, 70, 1, 29, "Print"],
Cell[139815, 3527, 70, 1, 29, "Print"],
Cell[139888, 3530, 66, 1, 29, "Print"],
Cell[139957, 3533, 70, 1, 29, "Print"],
Cell[140030, 3536, 70, 1, 29, "Print"]
}, Open  ]]
}, Closed]],
Cell[140127, 3541, 408, 11, 59, "Input"],
Cell[CellGroupData[{
Cell[140560, 3556, 186, 4, 39, "Input"],
Cell[140749, 3562, 934, 20, 416, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141720, 3587, 1247, 31, 94, "Input"],
Cell[CellGroupData[{
Cell[142992, 3622, 69, 1, 29, "Print"],
Cell[143064, 3625, 66, 1, 29, "Print"],
Cell[143133, 3628, 68, 1, 29, "Print"],
Cell[143204, 3631, 69, 1, 29, "Print"],
Cell[143276, 3634, 69, 1, 29, "Print"],
Cell[143348, 3637, 68, 1, 29, "Print"],
Cell[143419, 3640, 69, 1, 29, "Print"],
Cell[143491, 3643, 69, 1, 29, "Print"],
Cell[143563, 3646, 65, 1, 29, "Print"],
Cell[143631, 3649, 70, 1, 29, "Print"],
Cell[143704, 3652, 70, 1, 29, "Print"],
Cell[143777, 3655, 70, 1, 29, "Print"],
Cell[143850, 3658, 65, 1, 29, "Print"],
Cell[143918, 3661, 69, 1, 29, "Print"],
Cell[143990, 3664, 70, 1, 29, "Print"],
Cell[144063, 3667, 70, 1, 29, "Print"],
Cell[144136, 3670, 67, 1, 29, "Print"],
Cell[144206, 3673, 68, 1, 29, "Print"],
Cell[144277, 3676, 69, 1, 29, "Print"],
Cell[144349, 3679, 67, 1, 29, "Print"],
Cell[144419, 3682, 70, 1, 29, "Print"],
Cell[144492, 3685, 67, 1, 29, "Print"],
Cell[144562, 3688, 70, 1, 29, "Print"],
Cell[144635, 3691, 70, 1, 29, "Print"],
Cell[144708, 3694, 69, 1, 29, "Print"],
Cell[144780, 3697, 70, 1, 29, "Print"],
Cell[144853, 3700, 70, 1, 29, "Print"],
Cell[144926, 3703, 68, 1, 29, "Print"],
Cell[144997, 3706, 69, 1, 29, "Print"],
Cell[145069, 3709, 69, 1, 29, "Print"],
Cell[145141, 3712, 70, 1, 29, "Print"],
Cell[145214, 3715, 70, 1, 29, "Print"],
Cell[145287, 3718, 70, 1, 29, "Print"],
Cell[145360, 3721, 70, 1, 29, "Print"],
Cell[145433, 3724, 70, 1, 29, "Print"],
Cell[145506, 3727, 69, 1, 29, "Print"],
Cell[145578, 3730, 69, 1, 29, "Print"],
Cell[145650, 3733, 70, 1, 29, "Print"],
Cell[145723, 3736, 69, 1, 29, "Print"],
Cell[145795, 3739, 70, 1, 29, "Print"],
Cell[145868, 3742, 70, 1, 29, "Print"],
Cell[145941, 3745, 70, 1, 29, "Print"],
Cell[146014, 3748, 70, 1, 29, "Print"],
Cell[146087, 3751, 67, 1, 29, "Print"],
Cell[146157, 3754, 70, 1, 29, "Print"],
Cell[146230, 3757, 69, 1, 29, "Print"],
Cell[146302, 3760, 69, 1, 29, "Print"],
Cell[146374, 3763, 70, 1, 29, "Print"],
Cell[146447, 3766, 68, 1, 29, "Print"],
Cell[146518, 3769, 69, 1, 29, "Print"]
}, Open  ]]
}, Closed]],
Cell[146614, 3774, 399, 11, 59, "Input"],
Cell[CellGroupData[{
Cell[147038, 3789, 368, 9, 67, "Input"],
Cell[147409, 3800, 886, 20, 385, "Output"]
}, Open  ]],
Cell[148310, 3823, 99, 1, 39, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148446, 3829, 229, 5, 64, "Subsection"],
Cell[CellGroupData[{
Cell[148700, 3838, 263, 6, 67, "Input"],
Cell[148966, 3846, 118, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149121, 3854, 290, 8, 39, "Input"],
Cell[CellGroupData[{
Cell[149436, 3866, 339, 8, 47, "Print"],
Cell[149778, 3876, 328, 7, 29, "Print"],
Cell[150109, 3885, 322, 7, 29, "Print"],
Cell[150434, 3894, 260, 7, 29, "Print"],
Cell[150697, 3903, 308, 7, 29, "Print"],
Cell[151008, 3912, 293, 6, 29, "Print"],
Cell[151304, 3920, 83, 1, 29, "Print"],
Cell[151390, 3923, 84, 1, 29, "Print"],
Cell[151477, 3926, 256, 6, 29, "Print"],
Cell[151736, 3934, 254, 6, 29, "Print"],
Cell[151993, 3942, 257, 6, 29, "Print"],
Cell[152253, 3950, 256, 6, 29, "Print"],
Cell[152512, 3958, 305, 6, 29, "Print"],
Cell[152820, 3966, 102, 1, 29, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[152971, 3973, 488, 14, 113, "Input"],
Cell[153462, 3989, 115, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153614, 3997, 224, 5, 39, "Input"],
Cell[153841, 4004, 69, 1, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153947, 4010, 1323, 41, 162, "Input"],
Cell[155273, 4053, 144, 3, 38, "Output"],
Cell[155420, 4058, 144, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155601, 4066, 269, 7, 39, "Input"],
Cell[155873, 4075, 2007, 38, 270, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[157917, 4118, 760, 22, 59, "Input"],
Cell[158680, 4142, 1569, 26, 164, "Output"],
Cell[160252, 4170, 1704, 32, 296, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[161993, 4207, 1600, 51, 167, "Input"],
Cell[163596, 4260, 1622, 31, 294, "Output"],
Cell[165221, 4293, 1300, 26, 305, "Output"]
}, Closed]],
Cell[166536, 4322, 1565, 47, 302, "Input"],
Cell[CellGroupData[{
Cell[168126, 4373, 193, 4, 39, "Input"],
Cell[168322, 4379, 199, 5, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168558, 4389, 193, 4, 39, "Input"],
Cell[168754, 4395, 205, 5, 38, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[169008, 4406, 274, 7, 84, "Subsection"],
Cell[169285, 4415, 314, 8, 39, "Input"],
Cell[CellGroupData[{
Cell[169624, 4427, 1219, 33, 94, "Input"],
Cell[170846, 4462, 1588, 27, 164, "Output"],
Cell[172437, 4491, 1842, 34, 296, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[174316, 4530, 927, 26, 86, "Input"],
Cell[175246, 4558, 1554, 26, 164, "Output"],
Cell[176803, 4586, 1670, 31, 300, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
